[Mp3]

есть не спящие????

помогите составить пожалуйста програмку *обычный блокнот* в делфи,вот код но выдает ошибку если кто видит её отпишитесь где она плиз

procedure TForm4.Button1Click(Sender: TObject);

begin
if OpenDialog1.Execute then
EditFile:= Form1.OpenDialog.FileName;
Memo.Lines.LoadFromFile(EditFile);
Form1.Caption := ExtractFileName(EditFile)+' - Блокнот';

end;

end.

у меня есть memo1, button и opendialog на панели

[angvelem]

И в чём проблема?

[Mp3]

она не работает=(
ошибка выпадает на

EditFile:=

[angvelem]

Ну так определи её как переменную String.

[Mp3]

т.е. что надо изменить не понимаю чуточку

[angvelem]

Мдя, учиться нужно:

Код:

procedure TForm4.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Memo.Lines.LoadFromFile(OpenDialog1.FileName);
    Caption := ExtractFileName(OpenDialog1.FileName) + ' - Блокнот';
  end;
end;

[Mp3]

большое спасибо)