Variable ersetzen

[dr. jack1]

Hallo zusammen,

ich möchte in dem folgenden Quellcode das ß durch eine Variable ersetzen

if (length(edit1.text)<9) and ((edit1.text[1] in ['ß'])) Hintergrund: In dem Programm wird eine Packung eingescannt.
Leider senden manche Scanner statt dem "ß" ein "-" Zeichen.
-7314486 scannt der Quantumscanner und ß7314486 liest ein Honeywellscanner.
In wollte das nun so lösen:

if (length(edit1.text)<9) and ((edit1.text[1] in [edit17.text])) Damit könnte ich, je nach Arbeitsplatz und Scanner, das Vorzeichen ganz easy anpassen.
Gehtr leider nicht. Kennt jemand dazu eine Lösung?

[zeras]

Du kannst auch mit Pos arbeiten und nach ß suchen. Dann bekommst du den Index des Zeichens, wo das ß auftritt. Dann einfach ersetzen und schon fertig.

[dr. jack1]

grr ich habs

if (length(edit1.text)<9) and ((edit1.text[1] in ['ß','-'])) trotzdem danke!

viele grüße

[sx2008]

Wenn du eine echte lokale Variable verwendest, dann wird die Sache besser:

Delphi-Quellcode:

var
  barcode : string;
begin
  barcode := edit1.text;
  if barcode = '' then
    Exit;
  if (length(barcode)<9) and ((barcode[1] in ['ß','-'])) then