Re: игра по мотивам ККИ "Берсерк"
Поиск на форуме ничего не дал(( Примерно что то похожее накидал мож кому пригодится:
программа смотрит тестовый файл с таким содержанием:
40;300;500;600;
и получает из файла 4 переменные, которые потом складывает.
var
res:resource;
line,symbol:string;
i,num,p1,p2,p3,p4,summa:integer;
var_array:array [0..3] of string;
begin
res := OpenResource('/222.txt');
line:= ReadLine(res);//считываем строку с переменными из файла ресурса
CloseResource(res);
num:=0;
repeat
for i:= 0 to Length(line) do
begin
if (num<=3) then
begin
symbol:=getchar(line,i);//считываем посимвольно ранее считаную строку
if (symbol<>';') then var_array[num]:=var_array[num]+symbol;//временная переменная складывается из текста строки
DrawText(var_array[num],0,20*num);//выводим процесс обработки
repaint;
delay(100);
if (symbol=';') then num:=num+1;//Если разделитель то переключаемся к следущей элементу массива временных переменных
end;
end;
until num>3;
//обрабатываем получая необходимые переменные из временноо массива переменных
p1:=StringToInteger(var_array[0]);
p2:=StringToInteger(var_array[1]);
p3:=StringToInteger(var_array[2]);
p4:=StringToInteger(var_array[3]);
//считаем сумму вписаных в ресурс значений
summa:=p1+p2+p3+p4;
Setcolor(0,0,0);
DrawText(IntegerToString(summa),0,100);
repaint;
Delay(1000);
end.
|