Delphi-Quellcode:
if Sender = Edit3 then // dollar geändert
begin
Str(euro:8:2,s); Form1.Edit2.Text := s // Anzeige von euro (8 Stellen,
// davon 2 Nachkomma)
end else // kurs oder euro geändert
begin
Str(dollar:8:2,s); Form1.Edit3.Text := s // sonst Anzeige von dollar
end
Da sich der Code in einem begin-end-Block befindet muss jeder Befehl mit einem Semikolon abgeschlossen sein.
also ":= s;"