SRL Archive - OSR Help

how would make every string in an array lowercase?

 TSA := ['Uppercase', 'Capital'];  NewTSA := ['uppercase', 'capital']; 

You can loop through the array and use the Lowercase() function on each string:

program new;
{$i srl/srl.simba}

var
  MyTSA: TStringArray;

procedure LowercaseTSA(var TSA: TStringArray);
var
  i: Integer;
begin
  for i := 0 to (Length(TSA) - 1) do
    TSA[i] := Lowercase(TSA[i]);
end;

begin
  MyTSA := ['A', 'B', 'C'];
  Writeln(MyTSA);
  LowercaseTSA(MyTSA);
  Writeln(MyTSA);
end.

['A', 'B', 'C']
['a', 'b', 'c']
Successfully executed.

Hope that helps :)