Probleme mit dem copy() Befehl

[ChrisH90]

Hallo Leute, ich weis nicht mehr was ich noch machen soll. Folgendes Problem. Mit einem Handscanner lese ich folgenden String ein: abc123|def456;
Dabei ist die Pipe das Trennzeichen und das Semikolon das Endzeichen. Also möchte ich die zwei Werte trennen.
Auftragsnummer: abc123
Seriennummer: def456

Der Scanner erkennt statt der Pipe nur %Q aber ist ja auch kein Prob. Meine Source sieht folgendermassen aus:

in meinem Fall ist der Lesestring abc123%Qdef456;

Delphi-Quellcode:

Auftragsnummer_STRING:=copy(Lesestring,1,pos('%',Lesestring)-1);
Seriennummer_STRING:=copy(Lesestring,pos('Q',Lesestring)+1,pos(';',Lesestring)-1);

Soweit so gut. Normalerweise müsste er mir das richtige raushauen. Aber was macht er:
Auftragsnummer: abc123
Seriennummer: def456;

Das Semikolon sollte aber doch fehlen oder? Ich habe auch schon andere Endezeichen ausprobiert, ging auch nicht. Auch die Bezeichnung als Sonderzeichen #$27+#$59+#$27 funktioniert nicht.

HILFEEEEEE

[edit=thomasdrewermann]Delphi Tags eingefügt Mfg, thomasdrewermann[/edit]

[Sharky]

Hai ChrisH90,

da Du hier ein +1 als Startposition angibst musst Du als Endepostion -2 rechnen.

Zitat von ChrisH90:

Seriennummer_STRING:=copy(Lesestring,pos('Q',Leses tring)+1,pos(';',Lesestring)-1);

Copy kopiert ja von x beginnend y Zeichen. Wenn nun das letzte Zeichen fehlen soll (y-1) Du aber vorher von x+1 beginnst must Du also bis y-2 kopieren.

[ChrisH90]

Wie dumm von mir. DANKE

[Sharky]

Nein. Dumm ist es nicht zu fragen!