Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c