Delphi-Quellcode:
function StringToBruch(AValue: String): TBruch;
var p,i: Integer; z,n: String;
begin
Pos(AValue,'/');
for i := 0 to p-1 do
z := z + AValue[i];
for i := p+1 to length(AValue)-1 do
n := n + AValue[i];
result.Zaehler := StrToInt(z);
result.Nenner := StrToInt(n);
end;
Warum speicherst du die Position nicht? du fragst bloß ab wo die ist, machst aber nix weiter damit!
Ansonsten sieht es doch gut aus...d.h. ich würde hier mit Copy arbeiten, dürfte aber egal sein...
Flare