Здравствуйте уважаемые форумчане!
У меня возник такой вопрос: Можно ли реализовать одновременное чтение данных из текста файла в цикле и добавление записи в конец текстового файла.
Например.
Код:
AssignFile(outfile, 'outfile.txt'); // Открываем файл
Reset(outfile);
while not Seekeof(outfile) do begin
read(outfile, Xa); // Считываем переменные Xa, Xb
read(outfile, Yb);
Xamax:=((Image1.Width div 2)div mashi);
Ybmax:=((Image1.Height div 2)div mashi);
for YbNew:=0 to Ybmax do begin // В цикле проверяем их на некоторое условие
for XaNew:=0 to Xamax do begin
AssignFile(outfile, 'outfiles.txt');
ReWrite(outfile);
if (dtf*beta)>=sqrt(sqr(XaNew-Xa)+sqr(YbNew-Yb)) then begin
Append(outfile);
writeln(outfile, XaNew,' ',YbNew); // если условие удовлетворено, записываем полученные переменные в конец того же файла.
Image1.Canvas.Pixels[x0,y0]:=RGB(255, 0, 0);
x0:=x0+mashi;
end
else begin
x0:=x0+mashi;
end;
end;
Image1.Canvas.Pixels[x0,y0]:=RGB(255, 0, 0);
y0:=y0+mashi;
end;
end;
CloseFile(outfile);
end;
Админ: Пользуемся тегами для оформления кода!
Помоги пожалуйста или дайте совет как можно такое реализовать?