Варианты параметров (Строка или массив строк в параметрах)

[Kronos913]

Как сделать так, чтобы в процедуру можно было передать как как массив строк, так и одну строку?

При этом чтобы если передан массив то выполнялось

For i:= 1 to 64 do a[i]:=s[i]

А если же передалась одна строка то

For i:= 1 to 64 do a[i]:=s

(различие в последних символах кода)

[BDA]

Можно завести отдельные процедуры:

procedure a(ss: array of string); overload;
begin
  showmessage('array');
end;

procedure a(ss: string); overload;
begin
  showmessage('string');
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  a(['a', 'b']);
  a('a');
end;

Или всегда передавать массив, но анализировать длину:

if Length(s) > 1 then
  For i := 1 to 64 do a[i] := s[i]
else
  For i := 1 to 64 do a[i] := s[0];