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;
Ответов: 4629
Рейтинг: 749
|
|||
Gik, в файле hiStr_Enum.pas (строка 131) поправь функцию FParse():
|
|||
карма: 26 |
|
Редактировалось 1 раз(а), последний 2020-06-12 12:37:32