Функция ищет все числовые значения в строках. Как сделать что бы функция искала только числовые значения длина которых равна = 5.
То есть строка состоит из:
12345 FC-text212 12345FC-text212
На выходе нужно получить:
12345
12345
Функция:
function StripNonConforming(const S: string;
const ValidChars: TCharSet): string;
var
DestI: Integer;
SourceI: Integer;
begin
SetLength(Result, Length(S));
DestI := 0;
for SourceI := 1 to Length(S) do
if S[SourceI] in ValidChars then
begin
Inc(DestI);
Result[DestI] := S[SourceI]
end;
SetLength(Result, DestI)
end;
Пыталась сделать вот так:
if Length(S) = 5 then
Но результат не отображается...
Использую функцию вот так:
Memo2.Text := StripNonConforming(S1, ['0'..'9']);