Написал функцию извлечения числа из строки:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | function IsNum(c:Char):Boolean;
begin
If Ord(c)>=Ord('0') then
begin
If Ord(c)<=Ord('9') then
begin
IsNum:=True
end else
Isnum:=false;
end else
IsNum:=false;
end;
Function ExtractInteger(S:String):Integer;
var
i:Integer;
k:Integer;
s1:String;
s2:String;
begin
for i:=0 to Length(S) do
begin
If IsNum(S[i]) then
begin
SetLength(s2,1);
s2[1]:=s[i];
s1 := s1 + s2;
end;
end;
k:=StrToInt(s1);
ExtractInteger:=k;
end;
|
Теперь понадобилось, чтоб если между числами есть символы, то возвращало массив чисел, каждое отдельно.
И еще, как в проверить одну символьную строку на входждение в другую?
23.05.2008, 15:24
Извлечение чисел из строки
Линейный вид
