VPF::Сторонний фаил - Форум программистов

UpL1nK

Дата 4.12.2005, 01:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 102
Регистрация: 3.12.2005
Где: Тюмень

Репутация: нет
Всего: нет

Хотел бы спросить...
Возможно ли взять значения переменных из стороннего файла, тоесть значения считываются из какого то файла (например txt)
вот к примеру

program a;
uses crt;
var x,y,z:byte;
begin
z:=x*y;
Write(z);
end.

А в файле , например, так были записаны значения
x:=4
y:=5
Вообщем вообще возможно ли это ? если да , то как?
Сенк.

--------------------

Макс

Albinos_x

Дата 4.12.2005, 02:25 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108

гдето так:

Код

...
function Znach(filename, vare:string):integer;
var s:string;
      f: textfile;
      er:integer;
begin
result:=0;
assignfile(f,filename);
reset(f);
while not Eof(f) do
   readln(f,s);
   if Copy(s, 1, (pos(':')-1)) =vare  then
       begin
       s:=copy(s, (pos('=')+1), length(s)); /// delete(s,1,pos('=')); или так
       val(s,result,er);
       if er<>0 then result:=0;
       Break;
       end;
   end;
closefile(f);
end;
...

vare - переменная
filename - путь имя файла.

эта функция будет искать одну переменную, но можно сделать на несколько переменных

пример использования:

Код

...
y:=Znach('c:\123.dat','y');
...

Это сообщение отредактировал(а) Albinos_x - 4.12.2005, 02:34

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

UpL1nK

Дата 6.12.2005, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 102
Регистрация: 3.12.2005
Где: Тюмень

Репутация: нет
Всего: нет

Сенк огромное=)

Это сообщение отредактировал(а) UpL1nK - 6.12.2005, 16:20

--------------------

Макс

Albinos_x

Дата 6.12.2005, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108

был рад помочь smile

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »