Функция не возвращает значение.
Создал свой модуль MyUnit.
В нем две функции:
function FindCharInStr(Str: string; Ch: char):Integer;
Function GetStrValue(Str : String; Index : Integer):String;
1) Вызываю функцию FindCharInStr из главного модуля программы:
i:= FindCharInStr(Str, ',');
После чего i равно 7. Так и должно быть.
2) Вызываю функцию FindCharInStr из функции GetStrValue:
i:= FindCharInStr(Str, ',');
После чего i равно 0. А должно быть 7!
В чем может быть моя ошибка?
|