Оставить в строке только буквы и цифры, все остальное убрать

[Serge_Bliznykov]

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

DeleteSymbol('привет.'); // Результат: иве

мда...

ладно. а что будет, если напишете так?

function DeleteSymbol(sText:String):String;
begin
  Result := AnsiLowerCase(sText);
end;

DeleteSymbol('привет.');

тогда попробуйте такой код:

function DeleteSymbol(sText:String):String;
  const
    Symbols = ['0'..'9','a'..'z','A'..'Z'];
  var
    i : Integer;
begin
  Result := ''; 
  for i :=  1 to Length(sText) do begin
     if CharInSet(AnsiChar(sText[i]), Symbols) 
          or 
 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюяЁё'
   .IndexOf(sText[i])>0) then Result := Result + sText[i];
end;

[bilibian]

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

тогда попробуйте такой код:

function DeleteSymbol(sText:String):String;
  const
    Symbols = ['0'..'9','a'..'z','A'..'Z'];
  var
    i : Integer;
begin
  Result := ''; 
  for i :=  1 to Length(sText) do
     if CharInSet(AnsiChar(sText[i]), Symbols) or ('АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюяЁё'.IndexOf(sText[i])>0) then Result := Result + sText[i];
end;

Работает, спасибо!

[Filka]

function MyTrim(const S: string): string;
var
  Sp, Rp: PChar;
begin
  SetLength(Result, Length(S));
  Sp := PChar(S);
  Rp := PChar(Result);
  while Sp^ <> #0 do
  begin
    if IsCharAlpha(Sp^) or IsCharAlphaNumeric(Sp^) then
    begin
      Rp^ := Sp^;
      Inc(Rp);
    end;
    Inc(Sp);
  end;
  SetLength(Result, Rp - PChar(Result));
end;