Thema: Delphi Erkennen von Lines

Einzelnen Beitrag anzeigen

homerunjack

Registriert seit: 22. Aug 2005
31 Beiträge
 
#14

Re: Erkennen von Lines

  Alt 3. Sep 2005, 08:32
Code:
[b]const Max = ChecklisteEin.Lines.Count;[/b]
begin
if OpenDialog1.Execute then

  DateiName := OpenDialog1.FileName ;
  ChecklisteEin.Lines.LoadFromFile(OpenDialog1.FileName);
  AssignFile (Datei, DateiName);
  Reset (Datei);
  AssignFile (Datei, DateiName);
Reset (Datei);
ReadLn (Datei, Temp); // Zeile 1 ignorieren

  for i := 1 To Max DO
   begin
    ReadLn (Datei, zeile1); // Bezeichnung
    ReadLn (Datei, zeile2); // +1 entfernt, da Betrag direkt in der nächsten Zeile kommt

  Val(Zeile2, int_Betrag, ErrCode);

end;
  Panel1.Caption := ();
ich habe das jetzt erstmal so übernommen aber das mit der Konstanten geht irgendwie überhaupt nicht ??
und wie kann ich nun alles zusammenrechnen lassen??? tut mir ja leid das ich euch so nerve

[edit=Sharky]PRE-Tags eingefügt. Mfg, Sharky[/edit]
  Mit Zitat antworten Zitat