Сообщение от
LOGIC
// Выделить цифры из текстовой переменной
Вот есть функция на Delphi. Выделить числа из стринговой переменной
Код:
function ExtractNumber(const S:string):string;
var I:Integer;
begin
Result:='';
if Trim(S)='' then Exit;
for I:=1 to Length(S) Do
if S[I] in ['0'..'9'] then Result := Result + S[I];
end;
Выделить числа из стринговой переменной
S := ExtractNumber('-?/ 123CE4N5A6'); {a S contain '123456'}
Не могу сообразить как написать подобную для Nav.