Помогите разобрать со String

[MasterofCDM]

Я написал функцию, которая убирает цифры из String

function TnRabPlan1.ChrCells (var a: String): string;
var
  s :String;
  i :Integer;
begin
    s := '';
    if a = '' then
    begin
        Result := '';
        exit;
    end;
    for i := 0 to Length (a) do
        if (a[i] <> '0') and (a[i] <> '1') and (a[i] <> '2') and (a[i] <> '3') and (a[i] <> '4') and (a[i] <> '5') and (a[i] <> '6') and (a[i] <> '7') and (a[i] <> '8') and (a[i] <> '9') then
            s := s + a[i];
     Result := s;
end;

Проблема в том, чему бы не была равна переменная 'a', на выходе все равно '', если я в начале присвою s := 'q';то на выходе будет 'q', если заменить: s := s + a[i]; на s := a[i];, то на выходе будет последний символ в переменной 'a'. В чем может быть косяк?

[Somebody]

Нумерация символов начинается с единицы. А тут сначала что-то ещё (в данном случае, похоже, ноль) пишется в s.

[Ntlegend]

попробуй чтото типа такого:

function TnRabPlan1.ChrCells (a: String): string;
var i:integer;
begin
Result:='';
for i:=1 to Length(a) do
 if not (a[i] in ['0'..'9'])
   then Result:=Result+a[i]
end;

Извеняюся.. я скобки забыл..

[MasterofCDM]

Сообщение от Somebody

Нумерация символов начинается с единицы. А тут сначала что-то ещё (в данном случае, похоже, ноль) пишется в s.

Даже не понимаю о чем идет речь, причем тут нумерация символов?

Ntlegend спасибо за идею, но почему то на строчке:

if not a[i] in ['0'..'9']

выдает ошибку:

[DCC Error] newRabPlan1.pas(1244): E2015 Operator not applicable to this operand type

[S@fer]

которая убирает цифры из String

Не лучше ли будет воспльзоваться функцией Stringreplace

for i:=0 to 9 do
a:= StringReplace(a, IntToStr(i), '', [rfReplaceAll]);

[MasterofCDM]

S@fer спасибо, чего-то я действительно все усложнил) Но почему мой код не работает(((

[Ntlegend]

Но почему мой код не работает(((

тебе же во втором посте ответили.. нумерацыя символов в String'е начинается с 1 а не с 0.. ты пытаешься получить доступ к a[0] в котором хранится #0, тоесть символ окончания строки.. таким образом твоя строка s := s + a[i]; начинается с символа окончания строки, следовательно является пустой.. если ты свой цыкл будешь начинать не с 0 а с 1 - то и твой код будет работать..

S@fer, да StringReplace будет проще.. но если понадобится кроме цыфр еще какие нить символы отсеивать - то проще проверять наличие символа в множестве.. как в моём примере

[Пепел Феникса]

в оригинальном коде замените все and на or
а то у вас условие очень странное

[Somebody]

Сообщение от Пепел Феникса

в оригинальном коде замените все and на or
а то у вас условие очень странное

?? Как раз с or и получится странное

[Neeter]

Если у вас Delphi 2009, то можно писать и так:

if not CharInSet(a[i], ['0'..'9']);

Это к сведению.