Erkennen von Lines

[marabu]

Hi,

die automatisch von der Delphi-IDE generierten Namen sind nur Platzhalter - du solltest die abändern, damit sich nicht sowas wie OpenDialog1 oder Edit1234 in deinem Programm breit macht.

Schau mal, ob du das zum Laufen bringst:

Delphi-Quellcode:

procedure TMainForm.FileOpenClick(Sender: TObject);
var
  i, iError, iBetrag, iSaldo: integer;
  s: TStrings;
begin
  if not OpenDialog.Execute then Exit;

  s := ChecklisteEin.Lines;
  s.LoadFromFile(OpenDialog.FileName);

  iError := 0;
  iSaldo := 0;

  for i := 0 To s.Count - 1 do
  begin
    if not Odd(i) then
      Continue;
    if not TryStrToInt(s[i], iBetrag)
      then Inc(iError)
      else iSaldo := iSaldo + iBetrag;
  end;

  SaldoPanel.Caption := IntToStr(iSaldo);
end;

Grüße vom marabu