Функция возвращает пустую строку

[Chikoy]

Помогите пожалуйста разобраться с проблемой? Файл OID.txt содержит информацию названий моделей принтеров, а в OID_Model.txt содержатся значения OID всех принтеров, эта функции предназначена для опроса сетевого принтера по его ip адресу. Из файла OID_Model.txt считывается строка со значением OID для опроса принтера по протоколу snmp, Затем полученное значение сравнивается со строками в файле OID.txt, как значения совпадут функция должна содержать строку с именем принтера, но она возвращает мне пустую строку, подскажите пожалуйста где ошибка ?

Function PoiskModel (ip: string) : string;
var
i, j, fk, hk: integer;
marka, bufer, stroka, strokaModel: string;
f, h: TstringList;
begin
 f:= TstringList.create();
 f.loadFromFile('OID.txt');
 fk:= f.count;
 h:= TstringList.create();
 h.loadFromFile('OID_model.txt');
 hk:= h.count;
 i:=0;
 repeat
  stroka:= h.Strings[i];
  bufer:= Copy(stroka,1,Pos(' ', stroka)-1);
  marka:= SNMPQuery (ip, bufer);
  j:=0;
  repeat
   strokaModel:= f.Strings[j];
   j:= j+1;
  until (marka = strokaModel) or (j = fk);
  i:= i+1;
 until (marka = strokaModel) or (i = hk);
 f.Free;
 H.Free;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Utkin]

Давненько не сидел за Дельфями потому прошу показать мне строку где функция вообще что-то возвращает .

[googl]

Все, что нужно вывести:

Result:=

[phomm]

Так и есть, ничего не возвращает, ну по логике можно потыкаться - поставить в конце result := marka; - т.е. вернуть строку с найденной в циклах маркой, но в функции надо ещё обернуть вариант ненахождения строки вообще - я бы сделал булеву переменную , например Found, и из until убрал бы проверку на найденность строки, а положил в цикл, присваивая эту проверку в Found и брякая циклы если она истинна. в конце если found истинна то result := marka; иначе пустая строка.

[googl]

Сообщение от phomm

Так и есть, ничего не возвращает, ну по логике можно потыкаться - поставить в конце result := marka; - т.е. вернуть строку с найденной в циклах маркой, но в функции надо ещё обернуть вариант ненахождения строки вообще - я бы сделал булеву переменную , например Found, и из until убрал бы проверку на найденность строки, а положил в цикл, присваивая эту проверку в Found и брякая циклы если она истинна. в конце если found истинна то result := marka; иначе пустая строка.

или я не понял или все же: с помощью ф-ции возвтратится первый подходящий? не легче тогда действительно ф-цию сделать логической и записывать данные в глобальный массив. потом опрашивать массив, если тру

[Chikoy]

А все не надо сам уже разобрался, но все равно спасибо тем кто хотел мне помочь!
Я сделал вот так, добавил в конец функции условие:

if marka = strokaModel then PoiskModel:=strokaModel
  else showmessage('Модель не найдена');
 f.Free;
 H.Free;
end;

И Функция возвращает мне наименование модели из файла OID.txt

[_PROGRAMM_]

if marka = strokaModel then PoiskModel:=strokaModel
else showmessage('Модель не найдена');
f.Free;
H.Free;
end;

Не очень хорошо сделано. Лучше так

if marka <> strokaModel then
begin
ShowMessage('Модель не найдена');
Result:='-1';
end;
else result:=strokaModel;

Если первый вызов завершится удачно, а второй ошибочно, то переменная, которая принимает значение функции будет содержать ложную информацию, что в дальнейшем приведет к ошибкам.