первый и последний символ в строке

[AndreyF]

Всем здрасьте!
Ребята подскажите, нужно узнать если первый и последний символ не буква или не дефис, то его удаляем:
себе представляю как то так -

while s[1] in not (['А'..'Я'],['A'..'Z'],'-') do delete(s,1,1);
или
if s[1] in not (['А'..'Я'],['A'..'Z'],'-') then delete(s,1,1);

а последний символ

 if copy(s,length(s),1) in not (['А'..'Я'],['A'..'Z'],'-') then delete(s,lenght(s),1)

но так конечно же не компилируется, помогите плиз...

[856100]

If not (s[1] in ['А'..'Я','A'..'Z','-']) then delete(s,1,1);//Первый символ
if not (S[Length(S)] in ['А'..'Я','A'..'Z','-']) then delete(s,length(s),1);//Последний символ

Весы слева =)

[AndreyF]

Спасибо большое, помогло. Блин стыдно за вопрос....

[AndreyF]

эта функция проверяет строку - Наименование организаций.
В строке может быть что угодно, нужно избавиться от недопустимых символов, к примеру:
О ОО *рога и КОПЫТА*
или * " .
я вот написал конечно кое что, хотел чоб покритиковали эту функцию или может кто короче код знает, ведь краткость сестра таланта...

function Correction_Lines(s:String):String;
var
   ss:string;
   i:Integer;
begin
   if trim(s)<>'' then
      begin
         s:=trim(AnsiUpperCase(s));
         while not (s[1] in ['0'..'9','А'..'Я','A'..'Z']) do
            begin
               delete(s,1,1);
               if length(s)=0 then
                  begin
                     Correction_Lines:=ss;
                     exit;
                  end;
            end;
         while not (s[length(s)] in ['0'..'9','А'..'Я','A'..'Z']) do delete(s,length(s),1);
         while pos('  ',s)>0 do delete(s,pos('  ',s),1);
         for i:=1 to length(s) do if (s[i] in ['0'..'9','А'..'Я','A'..'Z',' ','-',',']) then ss:=ss+s[i]; end;
   Correction_Lines:=ss;
end;

[856100]

Правильно думаете, что код можно сократить:

Function Correct(S:String):String;
Var I:Integer;
Begin
Result:=S;
Result:=AnsiUpperCase(Result);
For I:=1 to Length(S) do
 If Result[I] in ['*', '#'] then Delete(Result, I, 1); //Можно заменить на If not (Result[I] in ['0'..'9','А'..'Я','A'..'Z') then Delete(Result, I, 1);
end;

* и # - недопустимые символы, можете свои добавить

[AndreyF]

не совсем так, хотелось бы добиться -
НЕ УДАЛЯТЬ недопустимые символы,
а БРАТЬ нужные символы, т.е.

не так If Result[i] in ['*', '#'] then Delete(Result, I, 1);
а так if Result[i] not in ['0'..'9','А'..'Я','A'..'Z',' ','-',','] then Delete(Result, i, 1);

к примеру поле ИНН, как его проверять, взять только цифры, нежели перечислять то что нужно удалить.
с этим not у меня не компилируется.
жду рекомендаций......

[856100]

if not (Result[i] in ['0'..'9','А'..'Я','A'..'Z',' ','-',',']) then Delete(Result, i, 1);

[AndreyF]

спасибо большое.

[BonD 007]

Хочу, чтоб при выходе из всех TEdit с конца удалялась запятая, запятая с нулём, ноль (при наличии запятой), два нуля, три и т. д.
Код работает, если в поле есть символы. При пустом, выдаёт ошибку: "Нарушение доступа по адресу...".

procedure TF.nExit(Sender: TObject);
var vrPos,vrLength:byte;
vP,vR:Char;
t:String;
begin
with (Sender as TEdit) do
  begin
    t:=Text;
    vrPos:=Pos(',',t);//номер позиции разделителя
    vrLength:=Length(t);//длина текста
    vP:=T[Length(t)]; //последний символ
    vR:=T[Length(t)-1];//предпоследний символ
    if vrPos=vrLength then begin Delete(t,vrPos,1);Text:=t end;
    if (vP='0')and(vrPos>0) then begin Delete(t,vrLength,1);Text:=t end;
    if (vP='0')and(vR='0')and(vrPos>0) then begin Delete(t,vrLength-1,2);Text:=t end;
  end;
end;

[BonD 007]

Знаю, что причина в «vP='0'». Проверка наличия текста (if Text<>'') не помогает...