Txt dosyasında kaç satır var

[G.Arkas]

Kod: Tümünü seç

var
i : Integer;
begin
Memo1.Lines.LoadFromFile(TextDosyaYolu);
for i := 0 to Memo1.Lines.Count -1 do
ShowMessage(IntToStr(i) + ' Satır bulunuyor');
end;

[SimaWB]

Kod: Tümünü seç

var
i : Integer;
begin
Memo1.Lines.LoadFromFile(TextDosyaYolu);
for i := 0 to Memo1.Lines.Count -1 do
ShowMessage(IntToStr(i) + ' Satır bulunuyor');
end;

Döngü gereksiz olmuş sanırım:

Kod: Tümünü seç

Memo1.Lines.LoadFromFile(TextDosyaYolu);
ShowMessage(IntToStr(Memo1.Lines.Count) + ' Satır bulunuyor');

[G.Arkas]

Aynen. acele yazmıştım fazladan ve gereksiz olmuş

[G.Arkas]

Bir kaç yöntem;

- İçeride ki text dosyasının sayısına göre Dynamic olarak memo oluşturup içinde saydırabilirsin. Mantık aynı sadece memoyu dinamik oluşturacaksın. (Amelelik)
- Text dosyalarını teker teker açıp sayacaksın.
- Text dosyalarının sayısı kadar dynamic StringList oluşturacaksın ve okuyacaksın (Önerilir).