real to str

[ManuMF]

Zitat von BornToBeBreit:

ne, das geht net. oder ich mach was falsch ^^^

Ja.

Du musst das Ergebnis Runden. Du kannst einer Variable etc. immer nur das zuweisen, was sie "ist". Dem Edit also nur ein String (IntToStr), dem Ergebnis einen Integer-Wert (Round) usw.

Delphi-Quellcode:

var
  Euro, Ergebnis : Integer;
  Rechenkurs : Real;

begin
  Euro := StrToInt(Edit1.Text);
  Rechenkurs := 0.8333;
  Ergebnis := Round(Euro * Rechenkurs);
  Edit2.Text := IntToStr(Ergebnis);
end;

ODER

Delphi-Quellcode:

var
  Euro, Ergebnis, Rechenkurs : Real;

begin
  Euro := StrToFloat(Edit1.Text);
  Rechenkurs := 0.8333;
  Ergebnis := Euro * Rechenkurs;
  Edit2.Text := FloatToStr(Ergebnis);
end;

Gruß,
ManuMF