0.9.28.2
XP
Вот код
- Код: Выделить всё
...
FIndex: Integer;
FLength: Integer;
FStr: String;
...
// Найти с текущей позиции символ в строке
function TJ.FindChar(Ch: Char): Boolean;
var i: Integer;
begin
repeat
i := 0;
while i < FLength do begin
if FStr[i] = Ch then begin
FIndex := i;
Exit(True);
end;
Inc(i);
end;
until NextChar(False);
end;
Значение строки FStr = {"0134"}
Ищется двойная кавычка, Ch = "
Равенство FStr[i] = Ch выполняется при i=2!!!!!
После возврата из этой функции, я получаю указатель FIndex не на символе ", а на 0.
Я где заблуждаюсь или косячу?