Folgendes ich soll einen Masseinheitenrechner Programmieren der 4 Einheiten in 4 Einheiten umrechnen kann und umgekehrt! Dies mache ich wiefolgt um es euch einmal zu veranschaulichen
Delphi-Quellcode:
procedure TForm1.Edit2Change(Sender: TObject);
var groesse1 : double;
begin
if edit2.text='' then edit2.text:='0';
groesse1 := strtofloat(edit2.Text);
label2.Caption := '->';
if label3.Caption = '' then label3.Caption := 'Bitte Größe wählen';
if label4.Caption = '' then label4.Caption := 'Bitte Größe wählen';
if label3.Caption = 'Bitte Größe wählen' then label2.caption:='';
if label4.Caption = 'Bitte Größe wählen' then label2.caption:='';
if Meter2 = 1 then if Meter1 = 1 then edit1.Text := floattostr(groesse1) else if Meter1 = 2 then edit1.Text := floattostr(groesse1*0.1)else if Meter1 = 3 then edit1.Text := floattostr(groesse1*0.01) else if Meter1 = 4 then edit1.Text := floattostr(groesse1*0.001);
if Meter2 = 2 then if Meter1 = 1 then edit1.Text := floattostr(groesse1*10) else if Meter1 = 2 then edit1.Text := floattostr(groesse1) else if Meter1 = 3 then edit1.Text := floattostr(groesse1*0.1) else if Meter1 = 4 then edit1.Text := floattostr(groesse1*0.01);
if Meter2 = 3 then if Meter1 = 1 then edit1.Text := floattostr(groesse1*100) else if Meter1 = 2 then edit1.Text := floattostr(groesse1*10) else if Meter1 = 3 then edit1.Text := floattostr(groesse1) else if Meter1 = 4 then edit1.Text := floattostr(groesse1*0.1);
if Meter2 = 4 then if Meter1 = 1 then edit1.Text := floattostr(groesse1*1000) else if Meter1 = 2 then edit1.Text := floattostr(groesse1*100)else if Meter1 = 3 then edit1.Text := floattostr(groesse1*10) else if Meter1 = 4 then edit1.Text := floattostr(groesse1);
if label3.caption = 'Bitte Größe wählen' then edit1.text:='0';
end;
Nun zu meiner Frage ich habe das Problem das wenn ich einen Buchstaben eingebe ein Fehler kommt! Ich benutze delphi 6 weil mir leider nichts anderes zur Verfügung steht! Könnte mir bitte jemand helfen ich bin am verzweifeln!!!!!!!!!