Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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
и т.д.

Поправил код.

Последний раз редактировалось Uniq!, 14.10.2013 в 16:27.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:34.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025