Einzelnen Beitrag anzeigen

Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#31

Re: Dynamisches Array von DLL übergeben

  Alt 8. Dez 2006, 17:32
Also hier die Lösung (habs ganz alleine rausgefunden )

Delphi-Quellcode:
Data:=TStringArray(createArray);
  zeiger:=Data;

  for i:=0 to getArrayCount(zeiger) do
  begin
    len:=getElement(0, i, 0, zeiger); //hatte vorher "Buffer" im 1. Parameter stehen. Ist falsch!
    try
      GetMem(Buffer, len+1);
      len:=getElement(Buffer, i, len+1, zeiger);
      s:=String(Buffer);
    finally
      FreeMem(Buffer);
      Buffer:=nil;
      len:=0;
    end;
    ShowMessage(s);
  end;
Bitteschön

und

Dankeschön!
  Mit Zitat antworten Zitat