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)

.