TSAAppend

[Janilabo]

Appends TSA with value (x). Example included.

 

TSAAppend

[scar]procedure TSAAppend(var TSA: TStringArray; x: string);

var

aL: Integer;

begin

aL := (Length(TSA) + 1);

SetLength(TSA, aL);

TSA[(aL - 1)] := x;

end;

 

var

h, i: Integer;

TSA: TStringArray;

 

begin

ClearDebug;

TSA := ['ID0', 'ID1', 'ID2', 'ID3', 'ID4'];

TSAAppend(TSA, 'ID5');

h := High(TSA);

for i := 0 to h do

WriteLn('TSA[' + IntToStr(i) + ']: ' + TSA);

end.[/scar]