[OTTEPAHD]

как удалить все символы в строке, которые не являются буквами?

[Drozh]

Код:

var
 Source, Dest: String;
 i: Integer;
begin
 Source := 'Твоя строка';
 Dest := '';

  for i := 1 to Length(Source) do
  begin
   if Source[i] in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] then
    Dest := Dest + Source[i];
  end;

// Dest <- выводишь

[OTTEPAHD]

почему-то выводит только последнюю букву
если последний символ - не буква, то ничего не выводит

[Drozh]

Все работает О_о, а как ты используешь?

[OTTEPAHD]

Код:

var
  Form1: TForm1;

var
 Source, Dest: String;
 i: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Source := Edit1.Text;
  Dest := '';

    for i := 1 to Length(Source) do
   begin
    if Source[i] in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] then
    Dest := Dest + Source[i];
    Edit1.Text:=Dest;
    Dest:='';
    Edit1.Text:=ANSILowerCase(Edit1.Text);
   end;
   
end;

end.

вот так использую

[Drozh]

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

Код:

var
  Form1: TForm1;

var
 Source, Dest: String;
 i: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Source := Edit1.Text;
  Dest := '';

    for i := 1 to Length(Source) do
   begin
    if Source[i] in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] then
    Dest := Dest + Source[i];
    Edit1.Text:=Dest;
    Dest:='';
    Edit1.Text:=ANSILowerCase(Edit1.Text);
   end;
   
end;

end.

вот так использую

Ну ясно, тыж в цикле пытаешься каждый раз вывести один символ

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Source, Dest: String;
 i: Integer;
begin
  Source := Edit1.Text;
  Dest := '';

   for i := 1 to Length(Source) do
    if Source[i] in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] then
     Dest := Dest + Source[i];

 Edit1.Text:=ANSILowerCase(Dest);  
end;

[OTTEPAHD]

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

[Kast]

А как удалить символы заключенные внутри скобок вместе со скобками???