BComPort в Delphi7

[kutani]

Он твоя не понимать.

Oksymoron, лучше предоставь в теме дамп обмена, снятый Portmon-м с буратиной в HEX формате в текстовом файле. Portmon дяденька Руссинович разработал, лежит на официальном сайте Microsoft.

[VGuller]

у меня похожая задача при поступлении в порт 0f 0f 0f 05 00 00 eb 0a 00 00 00 eb вот такой строчки то надо менять цвет объекта, вот голову ломаю

[digitalis]

Очень актуально. 5 лет всего прошло...

[vlad145]

Я конечно понимаю, что форум уже заброшен, но всё же. Интересует процедура перевода строки в Memo. Есть пакет данных, поступающих в Com порт, далее в Memo. В пакете вставлены коды конца строки, 0х0А или #10. Как не пытаюсь сделать перевод строки, не получается. Использую код с первой страницы темы:

procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var
S: String;
begin
BComPort1.ReadStr(S, Count);
if cbCRLF.Checked and (S[Length(S)] = #10) then // Добавление перевода строки
S := S + #10;
Memo1.Text := Memo1.Text + S;
end;

#13 заменил на #10, толку нет.

[BDA]

Нужно #10 заменять на #13#10.

s1 := #10 + 'test' + #10 + 'test';
s2 := StringReplace(s1, #10, sLineBreak, [rfReplaceAll]);
Memo1.Text := Memo1.Text + s2;

[macomics]

Memo1.Lines.LineBreak := #10;

[BDA]

macomics, ага, так лучше, отмечу только, что в дельфи 7 этого свойства нет.

[macomics]

SendMessage(Memo1.Handle, EM_SETENDOFLINE, EC_ENDOFLINE_LF, 0);

Но как минимум нужен Windows 10. Долго же мелкомягкие это сделать не смогли

[vlad145]

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

macomics, ага, так лучше, отмечу только, что в дельфи 7 этого свойства нет.

Совершенно верно, нет такого в D7, к сожалению. Так что, пока вопрос остаётся открытым.

[BDA]

vlad145, а другие два варианта попробовали (EM_SETENDOFLINE должен работать, начиная с Windows 10 1809; а StringReplace "дорого" выполним, но более универсален)?