Bruch einlesen

[PetBurki]

in edit2 soll ein Bruch eingegeben werden können. Was muss ich dafür verändern?
Das ist der Quelltext:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var L: real;
begin
L:=StrToInt(edit2.Text);
if (StrToInt(edit1.Text)=H+1) and (L=(F/(H+1))) then
begin
label7.visible:=true;
end;

[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst erledigen. Mfg, Matze[/edit]

[DeddyH]

Zitat von PetBurki:

L:=StrToInt(edit2.Text);

Sollte das nicht eher heißenL:=StrToFloat(edit2.Text);

[mkinzler]

In Welcher Form soll der Bruch eingegeben werden?

[PetBurki]

der Bruch soll z.B. sein: 1/5
@DaddyH: Kann sein, ich hatte diesen Begriff noch nicht.

[PetBurki]

ich habs grad ausprobiert: auch StrTo Float funktioniert nicht

[Matze]

Wenn im Edit etwas steht wie 1/5 dann müsstest du das zuerst manuell zerlegen. Beispielsweise per Copy und Pos, dass du getrennt den Zähler und Nenner behandeln kannst.

[DeddyH]

Das kann so nicht funktionieren. Du brauchst einen Formelparser.

[mkinzler]

Dann mußt du den String erstmal in Teilen und dann den Wert (als Float) berechnen.

[PetBurki]

Mein Problem ist halt, das der Benutzer die Möglichkeit haben soll, sowohl eine ganze Zahl als auch einen Bruch einzugeben.