[Gott]

Каму не сложно подскажите.
Я получаю из порта в Мемо примерно следующие
ID 1
GROSS 798768
NET
TARA
Как мне заставить его отображать только строку GROSS
И раскидывать это значение в зависимости от ID

Если не сложно то в примере.

[Майняк]

Ты получаешь эти строки поочередно, или же в одном пакете?

[Gott]

В одном покете

[Майняк]

тогда только работа со строкой.
Объявляешь String s; и далее заносишь в переменную данные пакета, затем проводишь разбор операторами Copy, Pos, Delete... Так и очищаешь содержимое s ... А что значит "Раскидывать"?

[Gott]

Ну в зависемости от ID номера, помещать вторую строку в разные Мемо

[Gott]

сейчас само чтение выглядит вот так:

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var
S: String;
begin
BComPort1.ReadStr(S, Count);
if cbCRLF.Checked and (S[Length(S)]=#13) then
S := S + #10;
Memo1.Text := Memo1.Text+S;
end;

[Майняк]

а потом смотришь (примерно так же разбираешь...) какой ИД и в соот-ий ТМемо записываешь.

[Gott]

Если не сложно то по точнее кусочек напише который так делает что бы я визуально посматрел, а что то так я не догоняю