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

[bilibian]

Привет.

Необходимо удалить из строки не буквы и не цифры.

function DeleteSymbol(Text:String):String;
  const
    Sumbols = ['0'..'9','a'..'z','а'..'я','ё'];
  var
    i : Integer;
begin
  Text := AnsiLowerCase(Text);
  for i := Length(Text) downto 1 do begin
    if not (Text[i] in Sumbols) then Delete(Text, i, 1);
  end;
  Result:=Text;
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 not (Sp^ <= ' ') then
    begin
      Rp^ := Sp^;
      Inc(Rp);
    end;
    Inc(Sp);
  end;
  SetLength(Result, Rp - PChar(Result));
end;

?

[bilibian]

Из строки необходимо удалять все, кроме букв и цифр, а не только пробелы.

[evg_m]

В чем может быть проблема?

unicode ?
я же использую AnsiLowerCase .
А это только приведение "размера", но не перекодировка.

[bilibian]

Вы имеете ввиду перевести строку в utf8?! Не работает в случае с AnsiToUtf8

[evg_m]

Вы имеете ввиду перевести строку в utf8?

нет, я имею в виду, что исходная строка имеет кодировку отличную от ANSI.
и надо наоборот Utf8ToAnsi.

[Serge_Bliznykov]

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

Из строки необходимо удалять все, кроме букв

И каких именно букв? Английский (латиница), кириллица, французский, вьетнамский, китайский, японский?

дальше, допустим, речь идёт только о русских и английских буквах.
Тогда вопрос - строчный и прописные буквы различать?

следующий вопрос - какая у Вас версия Delphi ?
если Unicode (это все версии Delphi >= 2009), тогда ваш код некорректнет -
множества использовать нельзя, они не работают с уникодом.

[bilibian]

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

надо наоборот Utf8ToAnsi.

Увы, но не работает!

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

И каких именно букв? Английский (латиница), кириллица, французский, вьетнамский, китайский, японский?

Так ведь я вроде изначально указал.

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

Sumbols = ['0'..'9','a'..'z','а'..'я','ё'];

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

Тогда вопрос - строчный и прописные буквы различать?

По идее нужны только строчные, но на всякий случай предусмотрен вариант с

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

Text := AnsiLowerCase(Text);

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

следующий вопрос - какая у Вас версия Delphi ?

Delphi 10.1 Berlin

[Serge_Bliznykov]

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

function DeleteSymbol(sText:String):String;
  const
    Symbols = ['0'..'9','a'..'z','а'..'я','ё'];
  var
    i : Integer;
begin
  sText := AnsiLowerCase(sText);
  Result := ''; 
  for i :=  1 to Length(sText) do begin
     if CharInSet(AnsiChar(sText[i]), Symbols) then Result := Result + sText[i];
end;

[bilibian]

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

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

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

Работает не совсем так, как планировалось