那一個 c 的程序是這樣的 int prginit(char **argv, char **argg) 但到了 Delphi 裡，應如何處理？我沒有學過 c ，不懂得應如何呼叫這一個程序。 Delphi 中： prginit(argv : ??? ; argg : ??? ) : longint; stdcall;

type TPstr = ^string; function prginit(argv :TPstr; argg :TPstr) : longint; stdcall; ========================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。

引言: type TPstr = ^string; function prginit(argv :TPstr; argg :TPstr) : longint; stdcall; ========================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。

static char *text_arg[] = {"abc","def","ghi","jkl"}; static char *num_arg[] = {"123","456","789"}; int main(void) { prginit(text_arg, num_arg) } 它是這樣呼叫的，那我該如何轉換成 Delphi code?

var
  StrLst1,StrLst2: TStringList;    procedure initStrList;
begin
  StrLst1:= TStringList.create;
  StrLst2:= TStringList.create;
  StrLst1.Add('abc');
  StrLst1.Add('def');
  StrLst1.Add('ghi');
  StrLst2.Add('123');
  StrLst2.Add('456');
  StrLst2.Add('789');  
end;    function prginit(var aStr1 :TStringList; var aStr2 :TStringList) : longint; 
begin
end;    procedure Demo;
begin
  initStrList;
  prginit(StrLst1,StrLst2);
end;     

========================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。 發表人 - Leway 於 2004/03/10 10:41:09

也可 text_arg: array[0..3] of string = ('abc','def','ghi','jkl'); num_arg: array[0..2] of string = ('123','456','789'); prginit(@(text_arg[0]), @(num_arg[0])); ========================= 為學日益，為道日損，損之又損，以致於無。為無為，而無不為。

多謝你的回答，以上兩個方法我都會嘗試。

Pascal string is different from C string... My guess  < class="code"> function prginit(const argv,argg: PChar): longint; stdcall; {...} var text_arg,num_arg: string; {...} text_arg := Format('%s%s%s%s%s%s%s%s',['abc',#0,'def',#0,'ghi',#0,'jkl',#0]); num_arg := Format('%s%s%s%s%s%s',['123',#0,'456',#0,'789',#0]); prginit(@text_arg[1],@num_arg[1]);