Reading delimited string and convert to sql statement

Thanks for that.
Nearly worked, but for some reason even though i have set the delimiter as '|'  i also considers a space as a delemiter. Is there any way I can fix this.
 

A space as delimiter? Ewww. That could be a minor problem. But if you sure none of your text uses a space as part of the text value itself, you could use the StringReplace function to replace them.

StrLine.DelimitedText := StringReplace(StrNum[ i ], ' ', '|', [rfReplaceAll]);
or
StrLine.DelimitedText := StringReplace(StrNum[ i ], '|', ' ', [rfReplaceAll]);

The first one requires the delimiter to be set to '|' and the second one uses a space for all delimiters.

Sorry a bit of a typo. I meant that all spaces where be considered by the app to be delimiters and I did not want this.
for example

6003|Andy Smith|2004-11-23 16:41:00 comes out as '6003' 'Andy' 'Smith' '2004-11-23' '16:41:00'

when it should be '6003' 'Andy Smith' '2004-11-23 16:41:00'

Use this function to split your string into a stringlist without having a space as a delimiter:

{
 Function PosEx is Copyright (c) 2001 Borland Software
 Corporation
 PosEx searches for SubStr in S and returns the index
 position of SubStr if found and 0 otherwise.  If Offset is
 not given then the result is the same as calling Pos.  If
 Offset is specified and > 1 then the search starts at
 position Offset within S.  If Offset is larger than
 Length(S)then PosEx returns 0.  By default, Offset equals
 1.  

 FWIW, PosEx appears in Delphi 7.

}
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
  Tmp: PChar;
begin
  Result := 0;
  if (Offset > Cardinal(Length(S))) then exit;
  if Offset = 1 then
    Result := Pos(SubStr, S)
  else
  begin
    Tmp := StrPos(PChar(@S[Offset]), PChar(SubStr));
    if Tmp = nil then exit;
    Result := Cardinal(Tmp - PChar(@S[Offset])) + Offset;
  end;
end;

procedure Split(S, Delimiter: string; Strings: TStrings);
var
  P, OldP: integer;
  Token: string;
begin
  // Prevent any errors due to bogus parameters
  if (Strings = nil) or (Length(S) = 0) or (Length(Delimiter) = 0) then
exit;
  P := Pos(Delimiter, S);
  OldP := 1;
  while P > 0 do
  begin
    Token := Copy(S, OldP, P-OldP);
    Strings.Add(Token);
    // Don't call delete, instead save off P and search from
    // P + 1 to the end of S
    OldP := P + 1;
    P := PosEx(Delimiter, S, OldP);
  end;
  if P = 0 then
    Strings.Add(Copy(S, OldP, Length(S)));
end;

{
In the above implementation of Split we avoid calling Delete
because it can be very expensive especially if S is long
and contains many Delimiters.
}

// Here is the obverse, joining a stringlist into a single string delimited by the
// passed delimiter
function Join(Delimiter: string; Strings: TStrings): String;
var
  i: Integer;
begin
  Result := '';
  for i := 0 to Strings.Count-1 do
    case i of
    0: Result := Result + Strings[i];
    else Result := Result + Delimiter + Strings[i];
    end;
end;

Usage:

Split('6003|Andy Smith|2004-11-23 16:41:00', '|', ListBox1.Items);

Returns in ListBox1.Items:

6003
Andy Smith
2004-11-23 16:41:00

Another approach would be to use the StringReplace() function to change all spaces to some character value not otherwise found in your string before performing the delimited string parse.  This are usually characters between ASCII 128 and 255.

After the parse, you could automatically or conditionally replace the replacement character back to a space.

I've done this when storing and retrieving text that might have special punctuation characters, such as quotes and apostrophes, that would mess up my delimited-text I/O routines.

If yo dont mind I have split the points between Workshop_alex and Ratje