hy there,
ich hab dir da mal was vorbereitet, du musst das nur noch nen bissel für dich umschreiben, je nachdem wie du es genau brauchst, ich hoff mal es hilft dir.... das musst du in ein FileListBox1Change dafür belegen!!!
Delphi-Quellcode:
procedure TForm1.FileListBox1Change(Sender: TObject);
var
i: integer;
begin;
for i := 1 to filelistbox1.Count -1 do
if lowercase(ExtractFileExt(filelistbox1.Items.ValueFromIndex[i])) = '.txt' then
copyfile(PChar(filelistbox1.Items.ValueFromIndex[i]), 'meinedatei.txt', true); //true oder false musst in der win32api hilfe nach lesen, jenachdem wie du es brauchst...
// und das meinedatei.txt musst du noch so verändern, das er immer eine neue anlegt, und nicht immer nur in "meinedatei.txt" speichern will
end;
mfg