TString problem(Solved)

[JLWest]

I have a tstring which I believe looks like the following:
   $000000000658E5D8^: '51,40,45,44,44,40,'

I can't figure a way to extract the substrings '51', '40', '45', and '44' the first 4 sets.
The number will change all the time from 1 to 52
Is there a way to do this.
  Thanks

[SymbolicFrank]

TStringList.CommaText

[alpine]

One of the possibilities:

Code: Pascal  [Select][+][-]

1. uses
2.   StrUtils;
3. var
4.   S, T: String;
5.   I, N: Integer;
6. begin
7.   S :=  '51,40,45,44,44,40,';
8.   I := 1;
9.   N := 1;
10.   while (I <= Length(S)) and (N <= 4) do
11.   begin
12.     // Extract the N-th (N=1..4) comma sep. string
13.     T := ExtractSubstr(S, I, [',']);
14.     WriteLn(N, '=', T);
15.     Inc(N);
16.   end;
17. end.

Why you don't use array of Integer instead?

Edit: Wait a minute, what is a tstring?

[Ally]

Split is probably the easiest thing to do.

Code: Pascal  [Select][+][-]

1. var
2.   i: Integer;
3.   Row: String;
4.   Parts: TStringArray;
5.   S1, S2, S3, S4: String;
6. begin
7.   Row :=  '51,40,45,44,44,40,';
8.   Parts := Row.Split(',');
9.   S1 := Parts[0];
10.   S2 := Parts[1];
11.   S3 := Parts[2];
12.   S4 := Parts[3];
13. end;

[Thaddy]

Yup, that's how I would do it. Good little example.

[mig-31]

There is also ExtractDelimited function from StrUtils.

[alpine]

Split is probably the easiest thing to do.

Code: Pascal  [Select][+][-]

1. var
2.   i: Integer;
3.   Row: String;
4.   Parts: TStringArray;
5.   S1, S2, S3, S4: String;
6. begin
7.   Row :=  '51,40,45,44,44,40,';
8.   Parts := Row.Split(',');
9.   S1 := Parts[0];
10.   S2 := Parts[1];
11.   S3 := Parts[2];
12.   S4 := Parts[3];
13. end;

Don't forget to check the size of Parts 

[Thaddy]

Don't forget to check the size of Parts 

No need to: TStringArray is a dynamic array.
You can also rewrite it like so:

Code: Pascal  [Select][+][-]

1. var
2.   i: Integer;
3.   Row: String = '51,40,45,44,44,40,';
4.   Parts: TStringArray;
5.   S1, S2, S3, S4: String;
6. begin
7.   Parts := Row.Split(',');
8.   S1 := Parts[0];
9.   S2 := Parts[1];
10.   S3 := Parts[2];
11.   S4 := Parts[3];
12. end;

And you can iterate with for..in..do.. which always has the correct size.

Code: Pascal  [Select][+][-]

1. uses sysutils;
2. var
3.   Row: String = '51,40,45,44,44,40,';
4.   Parts: TStringArray;
5.   S: String;
6. begin
7.   Parts := Row.Split(',');
8.   for s in parts do writeln(s);
9. end.

[dseligo]

Don't forget to check the size of Parts 

No need to: TStringArray is a dynamic array.

Try it with:

Code: Pascal  [Select][+][-]

1. Row:= '51,40,';

[alpine]

Don't forget to check the size of Parts 

No need to: TStringArray is a dynamic array.
You can also rewrite it like so:
*snip*

It is necessary, and your rewrite actually reflects that need.

[JLWest]

Split worked great

Thanks all;