Taschenrechner Programmieren

[Nothine]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Eingabe,Ergebnis:   Real;
    Einheit,EinheitNeu: string;
begin
  Eingabe    := StrToFloat(Edit1.Text); //StrToFLOAT !
  Einheit    := Edit2.Text;
  EinheitNeu := Edit3.Text;
  Ergebnis   := 0;

  if (UpperCase(Einheit)='CM') and (UpperCase(EinheitNeu)='DM') then
    Ergebnis := Eingabe / 10;
  if (UpperCase(Einheit)='CM') and (UpperCase(EinheitNeu)='M') then
    Ergebnis := Eingabe / 100;
  if (UpperCase(Einheit)='MM') and (Uppercase(EinheitNeu)='KM') then
    Ergebnis := Eingabe / 1000000;
  if (UpperCase(Einheit)='DM') and (UpperCase(EinheitNeu)='CM') then
    Ergebnis := Eingabe * 10;
  if (UpperCase(Einheit)='M') and (UpperCase(EinheitNeu)='DM') then
    Ergebnis := Eingabe * 10;
  if (UpperCase(Einheit)='M') and (UpperCase(EinheitNeu)='CM') then
    Ergebnis := Eingabe * 100;
  if (UpperCase(Einheit)='M') and (UpperCase(EinheitNeu)='MM') then
    Ergebnis := Eingabe * 1000;
  if (UpperCase(Einheit)='KM') and (UpperCase(EinheitNeu)='M') then
    Ergebnis := Eingabe * 1000;
  if (UpperCase(Einheit)='KM') and (UpperCase(EinheitNeu)='MM') then
    Ergebnis := Eingabe * 1000000;

  Label5.Caption := FloatToStr(Ergebnis) + EinheitNeu;
end;

so sollte deine button-prozedur aussehen... (abgesehn davon dass noch nicht alle kombinationen drin sind )

//Edit: und das mit UpperCase und LowerCase is reine geschmackssache...