Delphi Kursu Opendialog2

ANA SAYFA YARDIM KAYNAK HAZIRLAYANLAR

KONULAR

DERSLER

DERS ANLATIMI OPEN DIALOG <| 1 2 |>

ÖRNEK2: txt uzantili bir dosyayi memoya çagirma..

KODU:

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Filter:='txt dosyasi|*.txt'; // yanliz txt dosyalarini aç
if OpenDialog1.Execute then // islem iptal edilmediyse asagidaki islemi yap
begin
memo1.Lines.LoadFromFile(OpenDialog1.FileName); //çagrilan dosyayi memoya aktar
label1.Caption:=OpenDialog1.FileName; //açilan dosyanin adresini belirtir.
end;
end;

! ! DOWNLOAD ! !