so habe code nochmal überarbeitet damit mir auch gleich die zeilen ausgelesen werden. allerdings weis ich immer noch net wie ich den dateinamen extrahieren kann und dann noch umbenennen und das ganze ans original hänge wie beschrieben :/ hoffe da gibts ne möglichkeit.
Delphi-Quellcode:
var
Form1: TForm1;
links: TStringList; // stringlistname
....etc.
begin
Try
Opendialog1.Execute; //Öffnen-Dialog aufrufen
Edit1.Text := Opendialog1.FileName; //Pfad der ausgewählten Datei anzeigen
links:=TStringList.Create; //Stringliste erzeugen
links.LoadFromFile(Edit1.Text); // Datei einlesen in stringliste
LabeledEdit1.Text := IntToStr(links.count); // Anzahl der gefunden Zeilen anzeigen
Except
end;
end;