Да, конечно, сглупил я, звездочки не заметил.
Короче вот, что не так тогда:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
s : string;
a: array[0..30000] of char;
// b: ^uchar; это нафиг
a2: array[0..60000] of uchar;
// b2: ^uchar; это тоже ;)
begin
StrCopy(a, pchar(Memo1.Text));
//b := @a;
//b2 := @a2;
func1(@a[0],@a2[0]);
for I := 0 to Length(Memo1.Text) do
s := s + chr(a2[i]);
Memo2.Text := s;
end;
типа так
ЗЫЖ StrCopy еще не внушает доверия, я его не использую, к тому же не уверен что подобные операции можно применять к объектам.