Array of char an Funktion übergeben

[S20000]

Hallo zusammen,

ich habe ein kleines Problem.
Ich möchte ein array[0..99] of char an eine Funktion übergeben,
bekomme das aber nicht richtig hin:

Delphi-Quellcode:

var
  a:array[0..99] of char;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
a:='hallo';
test[];            //hier hakt es !
end;


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

An der Stelle wo ich das 'hallo' übergeben möchte hakt es,
wie übergebe ich ein array an eine Funktion?

Gruß
Sebastian

(PS: ich weiß es geht einfacher mit pchar oder string)

[Thorben_Ko]

du musst das array als type dekladieren,

Delphi-Quellcode:

type
  TMyArray = array[0..99] of char;
var 
  a:TMyArray ; 

implementation 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
a:='hallo'; 
test(a);            //hier hakt es ! 
end; 


procedure test(var st :TMyArray ); 
begin 
//Whatever
end;

[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;

[Apollonius]

Ein offener Array-Parameter kann nicht mit Call-By-Reference übergeben werden. Bist du dir sicher, dass du nicht einfach einen String haben willst?

[bigben37]

Zitat:

Zitat von Apollonius

Ein offener Array-Parameter kann nicht mit Call-By-Reference übergeben werden.

Also bei mir geht das mit der Übergabe von dem Array, wenn dieser vom Typ String ist
Ich hatte aber auch gedacht, dass man das mit Typen machen muss :gruebel:

Delphi-Quellcode:

var
  a:array[0..99] of String;

implementation

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  a[0]:='hallo';
  test(a);
end;

[Edit] Code formatiert

[Apollonius]

Zitat:

Ich hatte aber auch gedacht, dass man das mit Typen machen muss

Dieses Konzept heißt Open Array Parameter und bewirkt, dass man das Array inline angeben kann (func(['wupp', 'di'])).

[S20000]

OK, das hab ich jetzt verstanden.
Jetzt kommt mein zweites Problem.
Ich möchte diesem array of char jetzt
folgendes zuordnen:

Delphi-Quellcode:

a:=Stringgrid1.Cells[0,1];

Jetzt kommt eine Fehlermeldung das die
Typen nicht miteinander übereinstimmen.

"[Pascal Fehler] Messwerte.pas(62): E2010 Inkompatible Typen: 'TMyArray' und 'string'"

[Apollonius]

Zitat:

Bist du dir sicher, dass du nicht einfach einen String haben willst?

[S20000]

Hallo,

das Problem ist, ich übergebe die Parameter an eine in "C" geschriebene
Funktion. Dann kann ich ja nicht mit string arbeiten...

Gruß
Sebastian

[dominikkv]

Versuch mal

Delphi-Quellcode:

a[0] := Stringgrid1.Cells[0, 1];