Текущий архив: 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.044 c
