Hi,
I'm trying to read data from serial port without any success.
I then made simple script to send a test string to serial port.
It will send "123A" where "A" is delimitter
I use following code for parsing:
procedure TForm1.LazSerial1RxData(Sender: TObject);
var Str : string;
begin
Str := LazSerial1.ReadData;
CurPos := Pos('A' ,Str);
if CurPos = 0 then begin
FTempStr := FTempStr + Str;
end
else begin
FTempStr := FTempStr + Copy( Str, 1, CurPos-1);
memo1.Lines.Add(FtempStr);
memo1.Lines.Add('X');
FTempStr := Copy(Str,CurPos +1, Length(Str) - CurPos);
end;
It should write "123" to memo and add "X" between every string.
Howerever, the result is:
123A123A123A123
X
123A123A123
X
123A123A123A123
X
123A123A123A123
X
123A123A123A123
X
123A123A123A123
X
123A123A123A123
X
123A123A123A123
X
123A123A123
X
123A123A123A123
X
123A123A123A123
X
What I'm doing wrong?