| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Rename...
jenya_rus © (2006-03-29 16:26:00)Привет еще раз =)
Вот проблема:
это фрагмент при нажатии на первую кнопку...
все просто: открывается оупендиалог и там выбираю файл...
полный путь к файлу при этом пишется в memo1...
procedure TForm1.Button1Click(Sender: TObject);
begin
if openDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
А вот это при нажатии на вторую кнопку...
код бред полнейший...
мне нужно чтоб при нажатии на вторую кнопку расширение файла автоматически менялось из *.ttt в *.txt
П.C. *.ttt - это расширение отболды, которого нет (наверное) :)
procedure TForm1.Button2Click(Sender: TObject);
var
f: TextFile; // это собственно файл
fName: String[80]; // имя этого файла
begin
fName := Edit1.Text;
If memo1.Lines := 'привет'
then
if Savedialog1.Execute then
Memo1.Lines.Rename(f,fname);
end;
jenya_rus (2006-03-29 16:48:00) [1]
> может:
> if openDialog1.Execute then begin
> Edit1.Text := OpenDialog1.FileName;
> Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;?
Нет зачем так...бигин стоит перед иф оупен дайлог1 =)
antonn (2006-03-29 16:45:00) [2]jenya_rus (29.03.06 16:26)
if openDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
может:
if openDialog1.Execute then begin?
Edit1.Text := OpenDialog1.FileName;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;
stone (2006-03-29 16:30:00) [3]
> мне нужно чтоб при нажатии на вторую кнопку расширение файла
> автоматически менялось из *.ttt в *.txt
ChangeFileExt + F1
jenya_rus (2006-03-29 16:28:00) [4]
> полный путь к файлу при этом пишется в memo1...
Сорри не в memo1, а Edit1...
Заранее благодарен...
| |
