Variable ersetzen

[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