Forum: Object-Pascal / Delphi-Language
by St.Pauli,
8. Mai 2005
Hatte vergessen, dass hier zu beherzigen, läuft aber trotzdem einwandfrei... :oops: :gruebel: :oops: :gruebel:
Forum: Object-Pascal / Delphi-Language
by St.Pauli,
7. Mai 2005
Um auf Deadinpacs Problem zurückzukommen - ich war fleißig, und hab nochmal gearbeitet, jetzt ist es ganz nach deinen Wünschen:
procedure TForm1.Button1Click(Sender: TObject);
VAR i, Geld, Geld2: integer;
namealt, nameneu : string;
begin
Memo1.Lines.LoadFromFile('Geld.txt'); //In der Datei Geld.txt sind alle Daten
namealt := Copy(Memo1.Lines, 19, Pos(' legt', Memo1.Lines)-19);...
Forum: Object-Pascal / Delphi-Language
by St.Pauli,
7. Mai 2005
So, Duffy war schneller, aber wegschmeißen wollt ich es nicht.
procedure TForm1.Button1Click(Sender: TObject);
VAR i, i2, i3 : integer;
a, b, c : string;
ende : boolean;
begin