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]