Показать сообщение отдельно
  #5  
Старый 03.07.2009, 16:47
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Да, конечно, сглупил я, звездочки не заметил.
Короче вот, что не так тогда:
Код:
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 еще не внушает доверия, я его не использую, к тому же не уверен что подобные операции можно применять к объектам.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием