Текущий архив: 2004.07.18;
Скачать: CL | DM;
Вниз
File and String Найти похожие ветки
← →
ййй © (2004-06-28 18:12) [0]Привет!Не подскажите как конвертировать переменную типа File в переменную типа String, содержащую имя файла.
← →
ййй © (2004-06-28 18:17) [1]
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
AssignFile(F, OpenDialog1.FileName);
winexec(f ,SW_MAXiMIZE);
Timer1.Enabled:=true;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=StrToInt(Edit1.Text);
winexec("D:\train\pr.exe" ,SW_MAXiMIZE);
end;
Вот код
← →
Тимохов © (2004-06-28 18:42) [2]тут есть переменная типа file?
← →
Amoeba © (2004-06-28 18:45) [3]
> AssignFile(F, OpenDialog1.FileName);
> winexec(f ,SW_MAXiMIZE);
Забавно!
← →
IceBeerg © (2004-06-28 18:45) [4]8()
var
Str:String;//Переменная типа String
Begin
Str:=OpenDialog1.FileName;{Переменной типа String присваевается строковое (текстовое) значение свойства FileName объекта экземпляра объекта TOpenDialog - OpenDialog1.}
← →
MacroDenS © (2004-06-28 19:05) [5]Ой что-то не нравится мне этот код в таймере...
Он ж с некой переодичностью будет один и то же файл запускать да еще и во весь экран. Ты не вирь случайно пишешь????
← →
TUser © (2004-06-28 20:16) [6][5]
А train - это типа "троян" :)
По сабжу - проще контролировать, с каким файлом ты переменную сассоциировал.
Страницы: 1 вся ветка
Текущий архив: 2004.07.18;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.05 c
