Показать сообщение отдельно
  #4  
Старый 14.10.2013, 16:18
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

Какого ж чёрты у вас в коде:
Код:
read(outfile, Xa); 
read(outfile, Yb);
Если вам нужен Xa Xb, а у вас Yb.

Про копирование я вообще не понял.
inFile - это исходный файл. Что вы собрались в него копировать?
outFile - это файл, который у вас должен получиться после преобразования.

Код:
AssignFile(inFile, 'outfile.txt'); // Связываем исходный файл с переменной
Reset(inFile); // Открываем файл для чтения
AssignFile(outfile, 'outfile_reCalc.txt'); // Связываем новый файл с переменной
ReWrite(outfile); // Открывай файл для записи

while not Seekeof(outfile) do
  begin // Пробегаем весь исходный файл
    read(infile, Xa); // Считываем переменные Xa, Yb
    read(infile, Yb);
    writeln(outfile, Xa,' ',Yb); //записываем текущие проверяемые точки в новый файл
    for YbNew:=0 to Ybmax do
      for XaNew:=0 to Xamax do
        begin
          // ... какие-то преобразования
          if // ... если точка принадлежит, то записываем её новые координаты
          writeln(outfile, XaNew,' ',YbNew); // запись новых координат точки в новый файл
        end;
  end;
CloseFile(inFile);
CloseFile(outfile);
На выходе получим:
Код:
Пробник1: Xa1 Yb1
Пробник2: Xa1 Yb2
Пробник3: Xa1 Yb3 
Совпадение: XaNew YbNew
Пробник4: Xa1 Yb4
Пробник5: Xa2 Yb1
и т.д.

Поправил код.
Ответить с цитированием