| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

БАГ и как с ним бороться!!! [D6, WinME]

GOD ©   (2002-11-09 02:41:00) 

Как всегда я подходил к завершению своего проекта, оставалось
создать интерфейс и т.д.
Но при тестирование я обнаружил что моя программа сравнивает только одну строку
Помогите
Вот часть исходника

........
procedure ReadF(List :Tstrings) ;
begin
i:=1;
While not eof(f) do begin
filesc := "";
readln(f,size);
i:=1;
ch := #00;
While size[i] <> " " do begin
filesc := filesc + size[i];
inc(i);
end;

While not eof(f1) do begin
filesc1:= "";
readln(f1,size1);
ch1:= #00;
i:=1;
while size1[i] <> " " do begin
filesc1:= filesc1 + size1[i];
inc(i);
end;
if filesc1 = filesc then begin
if size <> size1 then begin
list.Add (size + size1) ;
writeln(f2,size + size1 )
end;
end;end;
end;
end;
.........

---

Anatoly Podgoretsky   (2002-11-09 12:22:00) [1]

А кто будет перекручивать f1 на начало, про другие ошибки и говорить не стоит

---

Cobalt   (2002-11-09 12:10:00) [2]

Это у тебя сравнение слов? Ты бы описал задание/алгоритм, и неплохо бы указать данные, с которыми ты работаешь(текст файлов).

Этот алгоритм делает следующее: берет строку из f, первое слово, сравнивает его с первым словом из всех строк файла f1, и если слова совпадают, а строки - нет, то записывает эти строки.
По идее, все правильно. Проверь то, что осталось за кадром, а именно: ch := #00; ... ch1:= #00;
Такое чувство, что ты не все упомянул.

---

Наверх