Datei öffnen ?

[Vader]

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