@cruiser : Würde es dir was ausmachen deinen code nochmal ein wenig zu erläuter?
Also ich habe das jetzt mal das alte Beispiel weitergeführt und es funktioniert fast alles.
Wenn ich jedoch eine Programmzeile für die Fahrenheit Skala eingebe bricht das Programm sofort ab. Das liegt daran das sich die drei Edits gegenseitig ändern wollen.
Nur wie lässt sich das beheben?
Hier noch der Programmcode, ohne die Zeilen für Fahrenheit.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.celChange(Sender: TObject);
begin
rea.Text := FloatToStr( round (StrToFloat(cel.Text) * 0.8));
fahr.Text := FloatToStr( round (StrToFloat(cel.Text) * 1.8 + 32));
end;
procedure TForm1.reaChange(Sender: TObject);
begin
cel.Text := FloatToStr( round (StrToFloat(rea.Text) * 1.25));
fahr.Text := FloatToStr( round (StrToFloat(rea.Text) * 2.25 + 32));
end;
end.