Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

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 =)

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.032 c