if..then

[DimoK123]

Всем привет, сразу прошу прощения за глупый вопрос. Только начинаю познавать делфи. Собственно, что я делаю не так?

procedure TForm3.RichEdit1Change(Sender: TObject);
begin
if RichEdit1.Update then      //на этой строчки выводит ошибку при компиляции 
label2.Caption:='Обновлено'
else
label2.Caption:='Не обновлено'
end;
end;

Буду благодарен за любой ответ.

[FleXik]

Сообщение от DimoK123

Всем привет, сразу прошу прощения за глупый вопрос. Только начинаю познавать делфи. Собственно, что я делаю не так?

procedure TForm3.RichEdit1Change(Sender: TObject);
begin
if RichEdit1.Update then      //на этой строчки выводит ошибку при компиляции 
label2.Caption:='Обновлено'
else
label2.Caption:='Не обновлено'
end;
end;

Буду благодарен за любой ответ.

if RichEdit1.Update then Так и не будет работать, обьясните что именно Вам нужно

[DimoK123]

Сообщение от FleXik

if RichEdit1.Update then Так и не будет работать, обьясните что именно Вам нужно

В общем, у меня есть RichEdit окно. Есть кнопка, которая загружает тхт файл в окно RichEdit с определённой директории

procedure TForm3.Button1_1Click(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('H:\Новая папка\Еще одна папка\1.txt')
end;

Так вот, нужно, что б при успешной загрузки тхт файла, в label писало сообщение, мол успешно загружен, а если нет(допустим, файл удалили), то писало другое сообщение. Как-то так

[Аватар]

try
  RichEdit1.Lines.LoadFromFile('H:\Новая папка\Еще одна папка\1.txt');
  label2.Caption:='Обновлено';
except
  label2.Caption:='Не обновлено';
end;

[DimoK123]

Сообщение от Аватар

try
  RichEdit1.Lines.LoadFromFile('H:\Новая папка\Еще одна папка\1.txt');
  label2.Caption:='Обновлено';
except
  label2.Caption:='Не обновлено';
end;

Спасибо большое.

Может подскажите, тут еще одна задачка.
В общем, надо реализовать подключение через рдп к удаленному рабочему столу с автозаполнением логина и пароля. Пытался таким способом

	

procedure TForm1.Button1Click(Sender: TObject);
begin
MsRdpClient21.UserName :='admin';
MsRdpClient21.Server :='11.11.11.11';
MsRdpClient21.AdvancedSettings2.ClearTextPassword:='***';
MsRdpClient21.Connect;
end;

В итоге, приложение удачно компилировалось, но..ошибка при нажатии Button1.
Буду благодарен за любую информацию, ибо что-то вообще по этому поводу ничего не нашёл. Спасибо.

[Utkin]

MsRdpClient21 - покажите вызов конструктора

[Stilet]

покажите вызов конструктора

Это может быть компонент, кинутый на форму.

[DimoK123]

На форму кинул кнопку, и с вкладки "ActiveX" компонент MsRdpClient2(MSTSCLIB_TLB)