Вверх ↑
Ответов: 4629
Рейтинг: 749
#1: 2020-06-12 12:36:49 ЛС | профиль | цитата
Gik, в файле hiStr_Enum.pas (строка 131) поправь функцию FParse():
function FParse(var S: string; const Delimiters: Char): string;
var
P: Integer;
begin
P := Pos(Delimiters, S);

if P = 0 then
begin
Result := S;
S := '';
end
else
begin
Result := Copy(S, 1, P-1);
S := Copy(S, P+1, Length(S));
end;
end;
По кнопке Reverse, вроде, работало правильно?
карма: 26

0
Редактировалось 1 раз(а), последний 2020-06-12 12:37:32