mfn9
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите
Не понимаю почему не работает поиск
Какой-то бред...не понимаю в чем проблема
есть два тестовых
list1:
1
2
3
list2:
1
3
в итоге должен получить файл
list3
11
2
33
Делаю так
Код:
list1.LoadFromFile('c:\list1');
list2.LoadFromFile('c:\list2');
for i := 0 to list1.Count - 1 do
begin
tmpstr:=copy(list1[i],1,20);
indx:=list2.IndexOf(tmpstr);
if indx>0 then
list3.Add(list1[i] + ' ' + list2[indx])
else
list3.Add(list1[i]);
end;
list3.SaveToFile('c:\list3');
|
и все работает, когда файлы содержат те данные которые в примере, то есть цифры
но когда загружаю реальный файл с текстом - не работает!
при это 100500% совпадения есть
кодировка текстового файла win 1251 ANSI |
