Constante als Paramter übergabe

[DeddyH]

Zitat:

Delphi-Quellcode:

for i := 0 to count do
      leak:=leak+cleak[i];

Sicher, dass das so richtig ist?

[edit] Das müsste doch auch so funktionieren:

Delphi-Quellcode:

function sr_wchar_z(pid: Integer; offset: DWord; count: Cardinal): PChar; stdcall;
var
  HandleWindow, Buffer, deg    : Cardinal;
//  cleak                        : Array of Char;
  leak                         : String;
  i                            : Byte;
begin
{Start}
  SetLength(leak, count);
//  leak:= '';
{RM ~}
  HandleWindow := OpenProcess(PROCESS_VM_READ,False,pid);
  ReadProcessMemory(HandleWindow, Pointer(offset),@leak[1], Length(leak), Buffer);
{CR ~}
{  for i := 0 to count do
      leak:=leak+cleak[i];}
  result:= Pchar(leak);
{End}
end;

[/edit]