Stringübergabe in DLL´s

[d3g]

Doch. Ein Typecast von Pointer auf PMeintyp ist ohne weiteres möglich:

Code:

type
  TMeinTyp = array[1..100] of Integer;
  PMeinTyp = ^TMeinTyp;

procedure ShowValues(p: Pointer);
var
  i: Integer;
begin
  for i := 1 to 100 do
    ShowMessage(IntToStr(PMeinTyp(p)^[i]));
end; 

procedure Test; 
var
  i: Integer;
  t: TMeinTyp;
begin 
  for i := 1 to 100 do
    t[i] := i;
  ShowValues(Pointer(@t));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Test;
end;

MfG,
d3g