[xsaven]

Подскажите пожалуйста,
Вот на пример у меня есть текст "Привет qw всем rt я робот asd Бонни"
И мне нужно что бы при нажатии на "Button1" из "Edit1"(Где и был допустим написан этот текст) перенеслось в "ListBox1" латинские символы то есть в виде:
1 - qw
2 - rt
3 - asd.

Помогите пожалуйста.

[angvelem]

Можно поступить так, загрузить в StringList, указав в качастве разделителя пробел, затем по циклу опросить все строки StringList-а и, если в строке не присутствуют символы больше чем 'z', то копировать в Memo.

[xsaven]

А можно пожалуйста в виде кода если не сложно

[angvelem]

Код:

  StringList.Delimiter := ' ';
  StringList.DelimitedText := "Привет qw всем rt я робот asd Бонни";

  for I := 0 to StringList.Count - 1 do
  begin
    Bol := False;
    St := StringList.Strings[i];
    for J := 1 to Length(St) do
      if St[J] > 'z' then
      begin
        Bol := True;
        Break;
      end;
    if not Bol then
      Memo1.Lines.Add(St);
  end;

Примерно так.

[Pilot_Red]

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

Код:

  StringList.Delimiter := ' ';
  StringList.DelimitedText := "Привет qw всем rt я робот asd Бонни";

  for I := 0 to StringList.Count - 1 do
  begin
    Bol := False;
    St := StringList.Strings[i];
    for J := 1 to Length(St) do
      if St[J] > 'z' then
      begin
        Bol := True;
        Break;
      end;
    if not Bol then
      Memo1.Lines.Add(St);
  end;

Примерно так.

angvelem Код, скажу тебе, не камельфо, 2 цикла + Break непонятный) Здесь одного цикла хватит за глаза!

[angvelem]

Конечно кака, на скорую руку писан. Break вполне понятный.

[Pilot_Red]

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

Конечно кака, на скорую руку писан.

Ну ты наверно тупо руки на клаву положил

[Pyro]

PHP код:

type abc = set of char;

function no_empty_lines(str: string): string;
begin
  while str <> StringReplace(str, #13#10#13#10, #13#10, [rfReplaceAll]) do
    str := StringReplace(str, #13#10#13#10, #13#10, [rfReplaceAll]);
  if pos(#13#10, str) = 1 then
    str := StringReplace(str, #13#10, '', []);

  result := str;
end;

function get(str: string; needed: abc = ['a'..'z', 'A'..'Z']): string;
var i: integer;
begin
  for i := 0 to 255 do
    if not (char(i) in needed) then
      str := StringReplace(str, char(i), #13#10, [rfReplaceAll]);

  result := no_empty_lines(str);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Text := get(Edit1.Text);
end; 


stringreplace-ом

[xsaven]

Я чего то не могу понять я вставляю код и у меня дает ошибку ругается на "type abc = set of char;"

[xsaven]

И если можно скиньте пожалуйста наглядный примерчек..

[Pyro]

PHP код:

ругается на "type abc = set of char;" 


что говорит?

[xsaven]

"[Error] Unit1.pas(32): Statement expected but 'TYPE' found" - вот это

[Pyro]

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type abc = set of char;

function no_empty_lines(str: string): string;
begin
  while str <> StringReplace(str, #13#10#13#10, #13#10, [rfReplaceAll]) do
    str := StringReplace(str, #13#10#13#10, #13#10, [rfReplaceAll]);
  if pos(#13#10, str) = 1 then
    str := StringReplace(str, #13#10, '', []);

  result := str;
end;

function get(str: string; needed: abc = ['a'..'z', 'A'..'Z']): string;
var i: integer;
begin
  for i := 0 to 255 do
    if not (char(i) in needed) then
      str := StringReplace(str, char(i), #13#10, [rfReplaceAll]);

  result := no_empty_lines(str);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Text := get(Edit1.Text);
end;

end. 


[xsaven]

а как можно в выводе в листбокс перед анг. буквами нумирацию сделать а то калупал-калупал чето не вышло (