Einzelnen Beitrag anzeigen

Dark Angel
(Gast)

n/a Beiträge
 
#22

Re: Verbindung mit COM-Schnittstelle aufbauen über TComPort

  Alt 17. Jul 2008, 08:36
so nun hab ichs das schon mal geschafft, der string ist mit den richtigen daten gefüllt. es wird die zeichenkette im memo und im label agezeigt allerdings kommt es im memo noch manchmal zu störungen, bei denen dann nicht die ganze zeil erichtig übretragen wird.

Code dazu:
Delphi-Quellcode:
procedure TForm3.ComPort1RxBuf(Sender: TObject; const Buffer; Count: Integer);
var
RXStr_LS1 : string;
begin
sleep(568);
ComPort1.Readstr(Strx, 20);
 Memo1.Lines.Add(strx);
if Strx = 'MV 26,92km/h 5,76m/sthen
 label24.caption := strx;

Application.ProcessMessages;
end;

JETZT würde ich aber noch gerne aus der zeichenkette die beiden geschwindigkeiten auslesen und einzelen in einem label anzeigen lassen. dazu hab ich mir mal so möglichkeiten zur extraction angesehen, wie expect(),.... aber ich kenn mich da gar nicht aus. Wie könnt ich das am besten machen??
  Mit Zitat antworten Zitat