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]