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

[Apollonius]

Im Zweifel kannst du PChar nehmen. Wie sieht denn die Deklaration in C aus?

[S20000]

Delphi-Quellcode:

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

gibt die Fehlermeldung:

Inkompatible Typen "Char" und "string"

Die C-Funktion erwartet als Parameter ein
"array of char".

[Apollonius]

Wie ist das notiert?

[pilic]

Zitat:

Zitat von S20000

Die C-Funktion erwartet als Parameter ein
"array of char".

Und das tut sie vermutlich nur, weil es keine Strings in C gibt.

[S20000]

Hallo,

die C Funktionen habe ich noch nicht. Nur eine
Spezifikation. Eine Funktion wird z.B. so aussehen.
Wie gesagt mit einem Übergabeparameter als array of char
(wegen fehlender strings in C)

function GetInfo(a:integer;b:array of char):boolean;

[Medium]

Wenn keine Länge für das Array angegeben ist, wird ein dynamisches Array erwartet, dass es in C so nicht gibt. Man "simuliert" es über Pointer, womit PChar vermutlich genau dein Kandidat ist.

[S20000]

sorry, die maximale Länge ist gegeben:

Delphi-Quellcode:

function GetInfo(a:integer;b:array[0..99] of char):boolean;

[DeddyH]

Dann leg mal einen eigenen Typ an (ohne Gewähr):

Delphi-Quellcode:

type TDeinArray = array[0..99] of char;

function GetInfo(a:integer;b:TDeinArray):boolean;