Delphi Forum

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Strings: TStringlist;

begin
  Strings := TStringlist.Create;
  if od1.Execute then
    Strings.Text := od1.Files.Text;
  memo1.Text := Strings.Text;  // hepsini göster
 // memo1.Text := Strings[0];  // ilk dosyayı göster
end;

Kod: Tümünü seç

var th: TMythread


....

 th := TMythread.Create(false);