Forum: Sonstige Fragen zu Delphi
Delphi
by Stevie,
2. Nov 2004
Wer lesen kann, ist klar im Vorteil! :wall: :roll: Sorry... :angel2:
Forum: Sonstige Fragen zu Delphi
Delphi
by Stevie,
2. Nov 2004
Moin,
ich hab bei Tests festgestellt, dass eure Funktionen etwas von der ursprünglichen abweichen, was das Erkennen des richtigen Teilstrings angeht. Die ursprüngliche liefert bei einem Sep = ' ' den ersten String bis zu einem Leerzeichen zurück, wenn man Index = 1 angibt, aber eure erst den String nach dem ersten Leerzeichen!
Forum: Sonstige Fragen zu Delphi
Delphi
by Stevie,
29. Okt 2004
Hi,
function GetTok(str: string; Tok: integer; sep: char): string;
var
i, j: integer;
b: Boolean;
pos: Integer;
begin
Result := '';
if (Sep = '') or (Tok < 1) then
Exit;