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.}

Ой что-то не нравится мне этот код в таймере...
Он ж с некой переодичностью будет один и то же файл запускать да еще и во весь экран. Ты не вирь случайно пишешь????

[5]
А train - это типа "троян" :)

По сабжу - проще контролировать, с каким файлом ты переменную сассоциировал.

File and String Найти похожие ветки