Subj : A little stringing along
To : Sean Dennis
From : Gene Buckle
Date : Wed May 05 2010 10:41 am
Re: A little stringing along
By: Sean Dennis to All on Tue May 04 2010 11:12 pm
> I just am trying to figure out how to parse it correctly!
>
> Any help is appreciated.
>
Sean, try this routine:
function GetField(Field : string; Delimiter : char; Position : integer) :
string;
var
temp : string;
i : integer;
dPos : integer;
begin
dPos := 0;
for i := 0 to Position do begin
dPos := CharIPos(Field, Delimiter);
if i <> Position then begin
temp := StrMid(Field, dPos + 1, Length(temp));
end;
end;
if dpos = 0 then
Result := StrMid(temp, 1, Length(temp))
else
Result := StrMid(temp, 1, dPos -1);
end;
You'd call it like this:
value := GetField(dropfile_string,' ',field_id);
g.
--- SBBSecho 2.12-Win32
* Origin: The Retro Archive (1:138/142)
