[Booo]

Вот есть пример в делфи ,где одна строка разделенная символом '/' разбивается на 3 едита...
Правда пример ,очень мутерный ,как можно разбить строку (мб то же разделенная каким нибудь символом )на большее кол-во строк?

[lmikle]

Есть как минимум 2 варианта.
1. использование функций Copy и Pos
2. Использование StringReplace и TStringList.

Если с первым все понятно, то второй будет примерно так (это, конечно, изврат, через Copy/Pos более правильно делать):

Код:

procedure SplitString(AString : String);
var
  L : TStringList;
begin
  AString := StringReplace(AString,'/',#13#10,[sfReplaceAll]); // писал по памяти - поменять символ-разделитель на CRLF
  L := TStringList.Create;
  L.Text := AString;

  // предполагаем, что разделится на 3 строки
  Edit1.Text := L.Items[0];
  Edit2.Text := L.Items[1];
  Edit3.Text := L.Items[2];

  L.Free;
end;

[Booo]

Спасибо ...
Я сделал вот так вот

Код:

var
s:string;
 t: TStringList;

begin
s:=socket.ReceiveText;
t := TStringList.create;
 t.text := stringReplace(s, ' ', #13#10,
  [rfReplaceAll]);
  edit1.Text:=t[0];
  edit2.Text:=t[1];
  edit4.Text:=t[2];
  edit5.Text:=t[3];
  edit6.Text:=t[4];
  edit7.Text:=t[5];
t.free