[Booo]

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

[lmikle]

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

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

Код:

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

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]

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

Код:

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

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