String zerlegen und Teile in Integer umwandeln, AsyncPro

[Spurius]

Hallo,
ich empfange über RS232 Zeichenketten, die das Format 2-3 Zahlen, : , 1-4Zahlen haben.
Jetzt habe ich versucht, mit dem Quellcode

Delphi-Quellcode:

procedure TForm1.signale;
var i,j,k,nummer_i,wert_i: integer;
    nummer, wert, input2: string;
begin
 input2 := input;
 i := 0;
 j := 0;
 k := 0;
 i := pos(':', input2);
 for j := i + 1 to length(input2) do
 wert := wert + input2[j];

 memo1.Lines.Add(input2);
  showmessage(wert);
    nummer_i := strtoint(wert);
    //wert_i := strtoint(wert);
// paintbox1.Canvas.MoveTo(round(arccos((nummer_i-49)*3861/(Wert_i-37)))*8,8*round(arcsin((nummer_i-49)*3861/(Wert_i-37))));
// paintbox1.Canvas.Pixels[round(arccos((nummer_i-49)*3861/(Wert_i-37)))*8,8*round(arcsin((nummer_i-49)*3861/(Wert_i-37)))] := clred;
 memo2.Lines.Add(wert);
end;

die vorderen Zahlen und die hinteren Zahlen jeweils in einen String zu kopieren. Wenn ich dann z.B. den String "Wert" in einem Memo anzeige, klappt das auch, aber wenn ich ihn in einen Integer umwandeln will, bekomme ich die Meldung :

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt signalp.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: ''46
' ist kein gültiger Integerwert'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Habt ihr eine Idee, wo da der Fehler liegt?
Gruß
Spurius

[roedel]

Hallo,
mich würde interessieren was das werden soll.
Und was ist ein RS232 //oder wie das ding heißt

Wenn du zu einen String erzeugst, indem du in einer Schleife Teilstrings dazu addierst, dann sollte der String vorher am besten leer sein oder zumindest einen klar definierten Wert haben.

Wenn du einer Variablen keinen Wert zuweist, dann hat sie immer noch den Inhalt, der schon im Speicher stand, als sie angelegt wurde.
Übrigens liest du mit Code nur die Zahlen nach dem ':' ein.

Gruß Roedel

[Spurius]

Hi,
mit RS232 meinte ich die serielle Schnittstelle. Ich habe auch versucht, eine normale Zahlenfolge ohne ":" zu schicken, auch die kam an, aber die Umwandlung nach Integer geht auch da nicht.

[TeronG]

evtl. haste ja nach der zehl noch n leerzeichen/sonderzeichen?
schau doch mal wie lange deine strings sind und ob das mit der länge der zahl übereinstimmt.

[H4ndy]

Ich würde den String mit Copy() zerlegen - geht besser.

Delphi-Quellcode:

...
var VordereZahl, HintereZahl: string;
...
j := pos(':',input2);

if j <> 0 then begin
  VordereZahl := Copy(input2,1,j); // Alles vor ":" kopieren
  HintereZahl := Copy(input2,j+1,length(Input2)-j); // Alles nach ":" kopieren
end else begin
  ShowMessage('Kein ":" gefunden!');
end;

(Vorsicht - Code wurde gerade on-the-fly von Brain 1.0 generiert! Evtl. mit den Copy-Parametern rumspielen)

[TeronG]

Zitat von H4ndy:

Ich würde den String mit Copy() zerlegen - geht besser.

  VordereZahl := Copy(input2,1,j); // Alles vor ":" kopieren

lieber j-1 ... oder?

  VordereZahl := Copy(input2,1,j-1); // Alles vor ":" kopieren ach ja ... ich hatte das mir zusammengebastelt ...

Delphi-Quellcode:

j := pos(':',input2);
for i := 1 to j-1 do zahl1 := zahl1+input2[i];
for i := j+1 to Length(input2) do zahl2 := zahl2+input2[i];

aber Copy ist schon n stück feiner!

[Spurius]

Hallo,
also bei einer 3-stelligen Zahl zeigt er 5 als Länge an
HyperTerminal Listet die Zahlen untereinander, bei mir sind aber Leerzeilen dazwischen.
Hast du ne Idee wie ich das lösen kann?

[H4ndy]

@TeronG
Danke für die Korrektur - passiert halt wenn mal fix was aussen Kopf schreibt ^^

@Spurius
Probiere mal trim(input2);.
Kann sein, dass noch unnötige Leer- und Steuerzeichen davor oder dahinter liegen.

[freak4fun]

Wenn Leerzeichen dazwischen sind hilft trim nicht, da würde ich StringReplace nutzen.

MfG
freak

[Spurius]

Hi,
also hinten scheint zumindest das Ascii-Zeichen mit der Nummer 13 angehängt zu sein
http://www.manderby.com/mandalex/a/ascii.php
Also kann ich doch trim nutzen oder?