Mehrere Werte mit Locate suchen

[mkinzler]

Versuch mal:

Delphi-Quellcode:

procedure SplitPosNummer(PosNr: string; var mypos: TMyPosNummer);
var i: integer;
  c: Char;
  s: string;
begin
  s := PosNr;
  if (s[Length(s)] in 'a..z') or (s[Length(s)] in 'A..Z') then
  begin
    // Letztes Zeichen ist ein Buchstabe
    c := s[Length(s)];
    i := strtoint(LeftStr(s, length(s) - 1));
  end
  else
  begin
    i := strtoint(s);
    c := #13; // Default
  end;
   mypos.myPOS := i;
   mypos.myAPOS := c;
 end;