Erkennen von Lines

[homerunjack]

Ja das mit dem Laden klappt jetzt(danke, marabu und co.)

doch du hast ja geschrieben

iSaldo := 0;

wenn ich nun etwas geladen habe und eine neue Beschreibung mit preis hinzufüge fängt das programm wieder bei null an und rechnet dann normal weiter, sozusagen das laden geht doch den ausgangswert von der textdatei kann nicht weiterverwendet werden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
// das passiert wenn einnahmen angeklickt wird
begin
if RadioEin.Checked then Neu:= StrToFloat (Edit2.Text);
if RadioEin.Checked then  ChecklisteEin.Lines.Add (Edit1.Text) ;
if RadioEin.Checked then Edit3.text := FloatToStr(Neu);
if RadioEin.checked then ChecklisteEin.Lines.Add(Edit3.Text ) ;

if RadioEin.Checked then  Gewinnzwei:= (Gewinn + Neu + Gewinn)          ;
if RadioEin.Checked then  Panel1.Caption:= Floattostr (Gewinnzwei);

end;
// das passiert wenn ausgaben angeklickt wird
begin
if RadioAus.Checked then Neu:= StrToFloat (Edit2.Text);
if RadioAus.Checked then  ChecklisteEin.Lines.Add (Edit1.Text) ;
if RadioAus.Checked then Edit3.text := FloatToStr(Neu * -1);
if RadioAus.checked then ChecklisteEin.Lines.Add(Edit3.Text ) ;

[b]if RadioAus.Checked then  Gewinnzwei:= (Gewinnzwei - Neu + Gewinn)          ;
if RadioAus.Checked then  Panel1.Caption:= Floattostr (Gewinnzwei);


end;[/b]


if (not RadioAus.checked) and (not RadioEin.checked) then ShowMessage ('Ein- oder Ausgabe anklicken');



end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;



procedure TForm1.ffnen1Click(Sender:TObject);
var
  i, iError, iBetrag, Gewinn: integer;
  s: TStrings;

  begin

  if OpenDialog1.Execute then

  begin
  s := ChecklisteEin.Lines;
  s.LoadFromFile(OpenDialog1.FileName);

  iError := 0;
  Gewinn := 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 Gewinn := Gewinn + iBetrag;
  end;

  Panel1.Caption := IntToStr(Gewinn);

    end;

[edit=Sharky]Delphi-Tags gesetzt. Bitte zukünftig selber machen Mfg, Sharky[/edit]