[OTTEPAHD]

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

[Drozh]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

<b>var</b>  Source, Dest: <b>String</b>;  i: Integer; <b>begin</b>  Source := 'Твоя строка';  Dest := '';     <b>for</b> i := 1 <b>to</b> Length(Source) <b>do</b>   <b>begin</b>    <b>if</b> Source[i] <b>in</b> ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] <b>then</b>     Dest := Dest + Source[i];   <b>end</b>;   // Dest <- выводишь

[OTTEPAHD]

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

[Drozh]

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

[OTTEPAHD]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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

Код:

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>  Source, Dest: String;  i: Integer; <b>begin</b>   Source := Edit1.Text;   Dest := '';      <b>for</b> i := 1 <b>to</b> Length(Source) <b>do</b>     <b>if</b> Source[i] <b>in</b> ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'] <b>then</b>      Dest := Dest + Source[i];    Edit1.Text:=ANSILowerCase(Dest);  <b>end</b>;

[OTTEPAHD]

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

[Kast]

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