Array of char an Funktion übergeben

[mkinzler]

Genauso wie jede andere Variable

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
a[0]:='hallo';
test(a);     
end;


procedure test(var st:array of char);
begin
  if st[0]='hallo' then
  showmessage('funktioniert')
  else
  showmessage('funk. nicht');
end;