this is What a TString Array would be…
program New;
var
S : TStringArray;
i : integer;
begin
S := ['Hey', 'Hah', 'Blah'];
for i := 0 to Length(s)-1 do
Writeln(S[i]);
end.
and TString is used for like objects..
like ListBox.TString(Items).Add('hey');
program New;
var
MainForm : TForm;
ListBox : TListBox;
procedure InitForm;
begin
MainForm := CreateForm;
MainForm.SetBounds(0, 0, 300, 200);
MainForm.POSITION:= poDesktopCenter;
MainForm.BORDERICONS:= [biMinimize, biSystemMenu];
MainForm.BORDERSTYLE:= bsSingle;
MainForm.Color := 0;
MainForm.Caption := '';
ListBox := TListBox.Create(MainForm);
ListBox.Parent := Mainform;
ListBox.SetBounds(10, 10, 100, 100);
ListBox.Items.Add('Add'); // Items = TString
ListBox.Items.Append('Muhahha');
MainForm.ShowModal;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
begin
try
SafeInitForm;
finally
FreeForm(MainForm)
except
Writeln('ERROR: With Loading');
end;
end.