Вот что-то путаю PChar и указатели, помогите разобраться
Код:
var
Form1: TForm1;
Str:string;
p:PChar;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=str; {в этой процедуре на кнопку нажимаешь в Edit1 пропадает все, что вводишь и в Edit2 ничего нет, и ошибок нет (не понятно)}
P:=@str;
Edit2.Text:=String(p^);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Str:=Edit1.Text;
New(p);
p^:=str; //Здесь ошибку выдает почему-то
Edit2.Text:=String(p^);
Dispose(p);
end;
Admin: Пользуемся тегами иначе последуют санкции!
Почему так происходит ???