Rename...

← →
jenya_rus (2006-03-29 16:26) [0]

Привет еще раз =)
Вот проблема:

это фрагмент при нажатии на первую кнопку...
все просто: открывается оупендиалог и там выбираю файл...
полный путь к файлу при этом пишется в 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:28) [1]

> полный путь к файлу при этом пишется в memo1...

Сорри не в memo1, а Edit1...
Заранее благодарен...

← →
stone © (2006-03-29 16:30) [2]

> мне нужно чтоб при нажатии на вторую кнопку расширение файла
> автоматически менялось из *.ttt в *.txt

ChangeFileExt + F1

← →
antonn © (2006-03-29 16:45) [3]

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;?

← →
jenya_rus (2006-03-29 16:48) [4]

> может:
> if openDialog1.Execute then begin
> Edit1.Text := OpenDialog1.FileName;
> Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;?

Нет зачем так...бигин стоит перед иф оупен дайлог1 =)

Rename... Найти похожие ветки