klasördeki tüm txt dosyaları?

[interboy]

s.a arkadaşlar.
çalıştığım uygulamada bi klasördeki tüm txt dosyalarını okuyup tek bir dosyaya yazmam gerekişyor. o klasördeki tüm txt dosyalaerını bi döngüyle okumak istiyorum ama klasördeki tüm txt dosyalarının isimlerini almam gerekiyor. bunu nasıl yapabiliri. isimlerini alabilirsem loadfromfile ile memo ya alıp savetofile ile kaydetmeyi biliyorum ama isimlerini almayı bilmiyorum bu konuda fikir werebilirmisiniz?
teşekkür ederim.

selametle..

[lazio]

Kod: Tümünü seç

var
  SR: TSearchRec;
begin
  if FindFirst('c:\*.txt', faAnyFile, SR) = 0 then
  begin
    repeat
      ShowMessage('c:\' + SR.Name);
    until FindNext(SR) <> 0;
  end;
  FindClose(SR);
end;

[interboy]

saolun hocam. deniyecem.

selametle..

[interboy]

hocam dosyaların isimlerini bi listbox a listelettiriyorum. onların hepsinin bir döngü içinde arkarkaya memo1 e yukletmem gerekiyor. loadfromfile fonksiyonunda dosya adresine listboxtaki (yada stringlist) adresleri nasıl atayacam.bi türlü beceremedim. yardımcı olurmusunuz.

selametle..

[mceL]

Kod: Tümünü seç

for i := 0 to ListBox.Items.Count-1 do
 Memo1.Lines.LoadFromFile(ListBox.Items[i]);

[vkamadan]

Merhaba,
Eğer text dosyalarınız toplam boyutu büyükse Memo yeterli olmayabilir bu durumda TStringlist Önerebilirim,

Kod: Tümünü seç

var
ListeGecici,Liste:TStringList;
i:integer;
begin
try
Liste:=TStringList.Create;
ListeGecici:=TStringList.Create;
for i := 0 to ListBox.Items.Count-1 do
begin
ListeGecici.LoadFromFile(ListBox.items[i]);
Liste.text:=Liste.Text + ListeGecici.Text;
end;
Liste.SaveToFile('c:\birlestirilmisdosya.txt');
finally
ListeGecici.Free;
Liste.Free;
end;
end;

iyi çalışmalar.


Kodda söz dizimi hatası yapmışım düzelttim.

[mceL]

Kod: Tümünü seç

for i := 0 to ListBox.Items.Count-1 do
 Memo1.Lines.LoadFromFile(ListBox.Items[i]);

pfff, ne yazmışım ki nedir bu kod soruyla ne ilgisi var. kafa dağınıklığı işte.

vkamadan'ın çözüm yolunu uygulamalısın interboy.
kolay gelsin.

[interboy]

saolun hocam.

selametle..