Hi
ich habe deinen Code mit
ShowMessage(Extract('Hallo : Thomas',2));
getestet.
Das Ergebnis ist dann ein Zufallswert: Thomas + 'irgendetwas' da die Abbruchsbedingung bei
Delphi-Quellcode:
while p^ <> ':' do
begin
if WordPos = 0 then
Result := Result + p^;
Inc(p);
end;
fehlt. Debug das mal dann siehst du es.
Wenn ich
ShowMessage(Extract('Hallo : Thomas:,2)); // ':' Ans Ende angefügt
sage klappts.
Ich vermute das ist die Ursache