Скачать: CL | DM;

БАГ и как с ним бороться!!!   Найти похожие ветки 

← →
GOD ©   (2002-11-09 02:41) [0]

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

........
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;
.........

---

← →
Cobalt ©   (2002-11-09 12:10) [1]

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

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

---

← →
Anatoly Podgoretsky ©   (2002-11-09 12:22) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c