Komm immer noch nicht weiter:
Delphi-Quellcode:
function wordextrahieren(e:string;const startstelle:integer;trennzeichen:char):string;
var hilfsstring:string;
i,j:integer;
begin
i:=startstelle;
repeat
i:=i+1;
until (e[i]=trennzeichen) or (i>=length(e));
SetLength(hilfsstring,i-startstelle);
for j:=startstelle+1 to i-1 do
begin
hilfsstring[j-startstelle]:=e[j];
end;
result:=hilfsstring;
end;
//Testaufruf:
a:='4026 10'
b:=wordextrahieren(a,0,' ');
c:=wordextrahieren(a,length(b),' ');
b sollte in diesem Fall den Wert '4026' haben, c den wert '10', wie ja aus dem Quellcode auch schon ersichtlich. a,b und c sind vom typ String. Jemand eine Idee, meine sind nämlich inzwischen erschöpft...