VB Problem

[jagdfalke]

Hi, wir haben das Problem in den Griff bekommen: Das VB/Dephi Program sammelt einfach solange die Strings bis der Zeilenumbruch kommt:

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
        Str: String;
        position: integer;
const
        strUmbruch = #13 + #10;
begin
        ComPort.ReadStr(Str, Count);
        Serial_in := Serial_in + Str;

        position := pos(strUmbruch, Serial_in);

        if position <> 0 then
                begin
                    Delete(Serial_in, length(Serial_in)-1, length(serial_in));
                    listbox1.items.add(Serial_in);
                    Serial_in := '';
                end;
end;

@pebisoft:
Und wie funktioniert das beim Senden von Strings an das Board?


mfg
jagdfalke