Notepad teki yazıda ilk satırı

[r_korkmaz44]

Arkadaşlar notepadteki satıları edite atmam lazım. Notepad ten satırları edite nasıl alırız?

[yusuf simsek]

bir stringlist tanımlayıp txt dosyasını srtinglist'e yükleyebilir ve stringlist içinden okuyabilirsin.

Kod: Tümünü seç

procedure form1.button1click(sender : tobject );
var
  liste : tstringlist;
begin
  liste := tstringlist.create;
  liste.loadfromfile('c:\deneme.txt');
  edit1.text := liste[0];
  edit2.text := liste[1];
  liste.free;
end;