Taschenrechner Programmieren

[Excalibur]

Is halt etwas lang geraten, wegen den vielen groß/klein-Möglichkeiten (und das sind nur die häufigsten)

Delphi-Quellcode:

unit wandler;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Eingabe, Ergebnis : real;
Einheit, Einheitneu:string;
begin
Eingabe:=strtoint(Edit1.text);
Einheit:=(Edit2.Text);
EInheitneu:=Edit3.Text;

If (lowercase(Einheit)='cm') and (lowercase(Ergebnis)='m')
then Ergebnis:=Eingabe /100;
If (Einheit='CM') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='Cm') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='cM') and (einheitneu='m')
then Ergebnis:=Eingabe /100;
If (Einheit='CM') and (einheitneu='M')
then Ergebnis:=Eingabe /100;
If (Einheit='cm') and (einheitneu='M')
then Ergebnis:=Eingabe /100;
If (Einheit='Cm') and (einheitneu='M')
then Ergebnis:=Eingabe /100;
If (Einheit='cM') and (einheitneu='M')
then Ergebnis:=Eingabe /100;

If (Einheit='m') and (einheitneu='cm')
then Ergebnis:=Eingabe *100;
If (Einheit='M') and (einheitneu='cm')
then Ergebnis:=Eingabe *100;
If (Einheit='m') and (einheitneu='Cm')
then Ergebnis:=Eingabe *100;
If (Einheit='m') and (einheitneu='cM')
then Ergebnis:=Eingabe *100;
If (Einheit='M') and (einheitneu='Cm')
then Ergebnis:=Eingabe *100;
If (Einheit='M') and (einheitneu='cM')
then Ergebnis:=Eingabe *100;
If (Einheit='M') and (einheitneu='CM')
then Ergebnis:=Eingabe *100;
If (Einheit='m') and (einheitneu='CM')
then Ergebnis:=Eingabe *100;

If (Einheit='DM') and (einheitneu='cm')
then Ergebnis:=Eingabe *10;
If (Einheit='DM') and (einheitneu='CM')
then Ergebnis:=Eingabe *10;
If (Einheit='DM') and (einheitneu='Cm')
then Ergebnis:=Eingabe *10;
If (Einheit='DM') and (einheitneu='cM')
then Ergebnis:=Eingabe *10;
If (Einheit='DM') and (einheitneu='CM')
then Ergebnis:=Eingabe *10;
If (Einheit='dm') and (einheitneu='CM')
then Ergebnis:=Eingabe *10;
If (Einheit='dm') and (einheitneu='Cm')
then Ergebnis:=Eingabe *10;
If (Einheit='dm') and (einheitneu='cM')
then Ergebnis:=Eingabe *10;
If (Einheit='dm') and (einheitneu='cm')
then Ergebnis:=Eingabe *10;

If (Einheit='cm') and (einheitneu='dm')
then Ergebnis:=Eingabe /10;
If (Einheit='CM') and (einheitneu='dm')
then Ergebnis:=Eingabe /10;
If (Einheit='cm') and (einheitneu='DM')
then Ergebnis:=Eingabe /10;
If (Einheit='Cm') and (einheitneu='Dm')
then Ergebnis:=Eingabe /10;
If (Einheit='cM') and (einheitneu='dM')
then Ergebnis:=Eingabe /10;
If (Einheit='CM') and (einheitneu='DM')
then Ergebnis:=Eingabe /10;
If (Einheit='cM') and (einheitneu='dm')
then Ergebnis:=Eingabe /10;
If (Einheit='Cm') and (einheitneu='dM')
then Ergebnis:=Eingabe /10;
If (Einheit='cM') and (einheitneu='Dm')
then Ergebnis:=Eingabe /10;

If (Einheit='M') and (einheitneu='dm')
then Ergebnis:=Eingabe *10;
If (Einheit='m') and (einheitneu='dm')
then Ergebnis:=Eingabe *10;
If (Einheit='M') and (einheitneu='DM')
then Ergebnis:=Eingabe *10;
If (Einheit='m') and (einheitneu='DD')
then Ergebnis:=Eingabe *10;
If (Einheit='M') and (einheitneu='dM')
then Ergebnis:=Eingabe *10;
If (Einheit='M') and (einheitneu='Dm')
then Ergebnis:=Eingabe *10;
If (Einheit='m') and (einheitneu='dM')
then Ergebnis:=Eingabe *10;
If (Einheit='m') and (einheitneu='Dm')
then Ergebnis:=Eingabe *10;

If (Einheit='m') and (einheitneu='mm')
then Ergebnis:=Eingabe *1000;
If (Einheit='M') and (einheitneu='mm')
then Ergebnis:=Eingabe *1000;
If (Einheit='m') and (einheitneu='MM')
then Ergebnis:=Eingabe *1000;
If (Einheit='m') and (einheitneu='mM')
then Ergebnis:=Eingabe *1000;
If (Einheit='m') and (einheitneu='Mm')
then Ergebnis:=Eingabe *1000;
If (Einheit='M') and (einheitneu='mM')
then Ergebnis:=Eingabe *1000;
If (Einheit='M') and (einheitneu='Mm')
then Ergebnis:=Eingabe *1000;
If (Einheit='M') and (einheitneu='MM')
then Ergebnis:=Eingabe *1000;

If (Einheit='km') and (einheitneu='mm')
then Ergebnis:=Eingabe *1000000;
If (Einheit='KM') and (einheitneu='MM')
then Ergebnis:=Eingabe *1000000;
If (Einheit='Km') and (einheitneu='Mm')
then Ergebnis:=Eingabe *1000000;
If (Einheit='kM') and (einheitneu='MM')
then Ergebnis:=Eingabe *1000000;
If (Einheit='kM') and (einheitneu='mM')
then Ergebnis:=Eingabe *1000000;
If (Einheit='Km') and (einheitneu='mm')
then Ergebnis:=Eingabe *1000000;
If (Einheit='kM') and (einheitneu='mm')
then Ergebnis:=Eingabe *1000000;
If (Einheit='Km') and (einheitneu='Mm')
then Ergebnis:=Eingabe *1000000;

If (Einheit='km') and (einheitneu='m')
then Ergebnis:=Eingabe *1000;
If (Einheit='KM') and (einheitneu='M')
then Ergebnis:=Eingabe *1000;
If (Einheit='km') and (einheitneu='M')
then Ergebnis:=Eingabe *1000;
If (Einheit='kM') and (einheitneu='M')
then Ergebnis:=Eingabe *1000;
If (Einheit='Km') and (einheitneu='m')
then Ergebnis:=Eingabe *1000;
If (Einheit='KM') and (einheitneu='m')
then Ergebnis:=Eingabe *1000;
If (Einheit='kM') and (einheitneu='m')
then Ergebnis:=Eingabe *1000;

If (Einheit='mm') and (einheitneu='km')
then Ergebnis:=Eingabe /1000000;
usw

Label5.caption:=floattostr (Ergebnis)+(Einheitneu);

end;

end.