Witam,
jak zrobić aby załadować pliki tekstowe do memo z listy TListBox.
Np.
Mam w list boxie:
abc
deakd
asd
i pliki tekstowe
abc.txt
deakd.txt
asd.txt
Podsumowując: chciałbym załadować pliki tekstowe których nazwy (tylko bez rozszerzenia txt) znajdują się na liście załadować do memo?
Trochę pokrętnie to wytłumaczyłem ale nie udało mi się wytłumaczyć tego mniej pokrętnie ;)
Pozdrawiam Mikołaj.
Mniej więcej tak
procedure TForm1.ListBox1Click(Sender:TObject);
begin
with ListBox1 do Memo1.Lines.LoadFromFile(Items[ItemIndex]);
end;
Dzięki za odpowiedz ale kod który podajesz działa tylko na zaznaczony element w ListBoxie a ja chce żeby ładowało wszystkie.
Pozdrawiam Mikołaj.
Do tego samego memo? to pętla for to po elementach listboxa. pelsta podał ci już jak wczytać, a jak napisać pętlę znajdziesz tutaj: Rozdział 2
Na szybko, cos w tym stylu powinno pomoc.
var
i: integer;
tf: textfile;
s: string;
begin
for i := 0 to listbox1.Items.Count -1 do
begin
assignfile(tf, listbox1.Items[i] + '.txt')
while not eof(tf) do
begin
readln(tf, s);
memo1.lines.add(s);
end;
closefile(tf);
end;
end;
**Wielkie dzięki ** Gaski. Lekko zmodyfikowałem tylko, pod moje potrzeby i działa, jesteś wielki :)
Pozdrawiam Mikołaj.
