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

[BrunoT]

Hi Vader,

es geht so:
- platziere ein MainMenu auf der Form
- platziere ein OpenDialog auf der Form
- Doppelclick auf das Menü - "Datei" - Enter
- "Öffnen" - Enter usw.
- Menü-Editor - schließen
- im Menü Doppelklick auf "Öffnen"

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 loadDECLPDATLines(OpenDialog1.FileName, listbox1.items);
end;

mfg

BrunoT

[marabu]

Eventuell fehlt ein output.Clear - wahlweise vor dem Aufruf oder als erstes Statement innerhalb der Prozedur loadDecl...

Grüße vom marabu

[Vader]

hallo brunoT,

danke das funzt !!!