hallo,
habe da einen code der mir aus einer datendatei wo alle daten irgenwie vermischt sind
die angegeben datenzeilen sortiert
jetzt muß ich bei meinen code die datei was ich sortieren will im programmcode
angeben, das ist sehr umständlich ich würde gerne gleich durch den Menüpunkt "Datei -Öffnen " die datei laden und dann durch meine vorgegebenen sortierparameter sortieren
wie geht das, jetzt schaut das so aus bei mir:
Delphi-Quellcode:
procedure loadDECLPDATLines(fileName : string; output : TStrings);
var strLst : TStrings;
i : integer;
begin
strLst := TStringList.Create;
try
strLst.LoadFromFile(fileName);
for i := 0 to strLst.Count-1 do
if (Pos('DECL PDAT', (strLst[i])) =1) then
output.Add(strLst[i])
finally
strLst.Free;
end;
end;
procedure TForm1.DECLPDAT1Click(Sender: TObject);
begin
loadDECLPDATLines('c:\testfile.txt', listbox1.items);
end;
mfg vader