Erkennen von Lines

[homerunjack]

@marabu: stimmt ich dachte die ist standardmäßig da und lässt sich nicht entfernen
@DGL-Luke: ja das ist mir auch gerade eingefallen

so wie kann ich nun aus jeder zweiten zeile die werte zusammenrechnen???

procedure TForm1.ffnen1Click(Sender: TObject);
var DateiName, zeile1, zeile2: String;
Datei: TextFile;
i, ErrCode, int_Betrag, Max, vermoegen: Integer;
Temp: String;


begin
if OpenDialog1.Execute then

DateiName := OpenDialog1.FileName ;
ChecklisteEin.Lines.LoadFromFile(OpenDialog1.FileN ame);
Max := ChecklisteEin.Lines.Count;
AssignFile (Datei, DateiName);
Reset (Datei);
AssignFile (Datei, DateiName);
Reset (Datei);
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);

vermoegen := zeile2 + jede weitere 2. zeile ???

Panel1.Caption:= FloatToStr (vermoegen);
end;