Bruch einlesen

[Matze]

Hier mal schnell runtergetippt eine mögliche Lösung:

Delphi-Quellcode:

var
  PosBruchstrich: Integer;
  EditText: string;

  Zaehler, Nenner: Double;
begin
  EditText := Edit4.Text;
  PosBruchstrich := Pos('/', EditText);

  if PosBruchstrich > 0 then
  begin
    Zaehler := StrToFloat(Copy(EditText, 1, PosBruchstrich - 1));
    Nenner := StrToFloat(Copy(EditText, PosBruchstrich + 1,
      Length(EditText) - PosBruchstrich));
  end else
  begin
    Zaehler := StrToFloat(EditText);
    Nenner := 1;
  end;

  ShowMessage('Zähler: ' + FloatToStr(Zaehler) + #13#10 +
    'Nenner: ' + FloatToStr(Nenner));
end;

Aber Fehleingaben darfst du selbst abfangen. Versuche aber den Code zu verstehen (die OH hilft), sonst lernst du nichts und hast später massive Probleme beim Programmieren.