Консультация № 173588
22.10.2009, 23:18
0.00 руб.
0 3 1
Уважаемые эксперты помогите в написание программы.
Компоненты: TMainMenu1, TMemo1, TOpenDialog1, TStatusBar1.
В TMemo1 загружается произвольная программа на языке Object Pascal.
Нужно вывести в TStatusBar1 panel[0] каталог анализируемого файла.

Приложение:
procedure TForm1.N2Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
Begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
End;
end;

Обсуждение

Неизвестный
23.10.2009, 00:49
общий
это ответ
Здравствуйте, Спиридонов Данил Сергеевич.
Вы это хотели?
StatusBar1.panel[0].Text= ExtractFilePath(OpenDialog1.FileName);
5
Точно.
Неизвестный
26.10.2009, 13:17
общий
Selax:
Как вывести StatusBar1.panel[0] полное имя примерно так:
C:\Program Files\Borland\Delphi 7\Projects\Unit1.dcu
Неизвестный
26.10.2009, 13:24
общий
Спиридонов Данил Сергеевич:
Берите полное имя, не вырезая ничего:
StatusBar1.panel[0].Text= OpenDialog1.FileName;
Форма ответа