Okay habs mal umgeschrieben
Delphi-Quellcode:
type
Tirgendwas =
class(tobjectlist)
....
procedure TForm1.Button1Click(Sender: TObject);
var
irgendwas: Tirgendwas;
begin
irgendwas := Tirgendwas.Create;
try
irgendwas.ErsteZahlAsString := edit1.Text;
irgendwas.ZweiteZahlAsString := edit2.Text;
irgendwas.Add(irgendwas);
except
on E:
Exception do
begin
MessageBox(0, PChar(E.
Message),
nil, MB_OK
or MB_ICONERROR);
irgendwas.Free;
end;
end;
end;
Die wiedergabe möchte ich so machen kommt aber nur 0,00 raus
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
irgendwas: Tirgendwas;
begin
edit3.text := irgendwas.ErsteZahlAsString;
end;