TstringArray to TIntegerArray

[sm0k3]

Ihave a value in a TstringArray like this

The TStringArray is OBST
so

OBST[i][0] has a value from an ini of: 3235182,3244322 and are colours
how can i turn this into the TIntegerArray that FindColorEx expects ? :)

[Sex]

Why don't you just declare it a TIntegerArray from the start and populate it using StrToInt? :P

You'll have to create a whole new one for this.
var
OldArr : TStringArray;
NewArr : TIntegerArray;
i, h : integer;
begin
OldArr := ['12', '34', '56', '78'];
h := high(OldArr);
SetArrayLength(NewArr, h + 1);
for i := 0 to h do
NewArr[i] := StrToIntDef(OldArr[i], -1);
OldArr := [];
end.

[sm0k3]

Perfect thanks

[Home]

Can't you use TVariantArray for this?

~Home

[Iamadam]

Variants have types. So it remains as a string. (unless I'm mistaken)
Best thing to do would be read it in using intToStr straight away, and bypass the string array completely (as sex said).

[Home]

Variants have types. So it remains as a string. (unless I'm mistaken)
Best thing to do would be read it in using intToStr straight away, and bypass the string array completely (as sex said).

program new;
var
ReqArr : TVariantArray;
i, h : integer;
begin
ReqArr := [12, 34, 56, 78];
For i := 0 to High(ReqArr) do
Writeln(ReqArr[i]);
end.

Tell me if i'm totally off road :P

~Home

[Iamadam]

Ah look at that it does work :) How awesome!

program new;
var
ReqArr : TVariantArray;
i, h : integer;
begin
ReqArr := ['123', '343', '563', '78'];
For i := 0 to High(ReqArr) do
Writeln(toStr(ReqArr[i] + 1));
end.
I was thinking Java. You can store anything in an 'Object' (equivalent of Variant), but it keeps its type (so you can't add strings to ints or anything).

Useful.