procedure TfrmTelnet.IdTelnetcdmaDataAvailable(Buffer: String);
const
CR = #13;
LF = #10;
var
Start, Stop: Integer;
begin
if Memo2.Lines.Count = 0 then
Memo2.Lines.Add('');
Start := 1;
Stop := Pos(CR, Buffer);
if Stop = 0 then
Stop := Length(Buffer) + 1;
while Start <= Length(Buffer) do
begin
Memo2.Lines.Strings[Memo2.Lines.Count - 1] :=
Memo2.Lines.Strings[Memo2.Lines.Count - 1] +
Copy(Buffer, Start, Stop - Start);
if Buffer[Stop] = CR then
begin
Memo2.Lines.Add('');
end;
Start := Stop + 1;
if Start > Length(Buffer) then
Break;
if Buffer[Start] = LF then
Start := Start + 1;
Stop := Start;
while (Buffer[Stop] <> CR) and (Stop <= Length(Buffer)) do
Stop := Stop + 1;
end;
end;