есть не спящие????
помогите составить пожалуйста програмку *обычный блокнот* в делфи,вот код но выдает ошибку если кто видит её отпишитесь где она плиз
Цитата:
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 на панели