Kein Gleitkommawert

[klaus33]

Beim Starten des Programmes bekomme ich eine Fehlermeldung: Inkombatible Typen 1.50 ist kein gültiger Gleitkommawert.
[/delphi]
procedure TForm1.BeinzelerwClick(Sender: TObject);
begin
If Memo2.Lines.Strings[0]='2301' then
begin
Memo2.Lines[1]:='Bitte zahlen Sie '+FloatToStr(2.50)+' Euro';
LStatus.Caption:='2.50';
end else if Memo2.Lines.Strings[0]='2501' then
begin

Wenn ich diese Prozedur aufrufe dann erscheint die Fehlermeldung:

procedure TForm1.LeinEuroClick(Sender: TObject);
var einEuro:Real;
Status: Double;
Status2:Real;
begin
einEuro:=1;
Status:=StrtoInt(LStatus.Caption);
Status2:=Status-einEuro;
LStatus.Caption:=FloattoStr(Status2);
end;

[STS301]

wenn Status als Double definiert ist, dann wird es wohl nicht funktionieren, wenn du "strtiint" eingibts

am Anfang wird

Delphi-Quellcode:

//delphi eigebeben erst danach /delphi

:wink:

[klaus33]

Ich habe es schon geändert trotzdem funktioniert es nicht

[STS301]

was bringt es sich überhaupt als real, integer und double zu definieren?

[klaus33]

Was soll ich sonst tun

[STS301]

alles als real oder integer

[klaus33]

alles hat sich erledigt