Stringbearbeitung

[ibp]

Delphi-Quellcode:

function getindex(CONST aCheckString: String): Integer;
var
  l:byte;
begin
  l:=length(aCheckString)-2; // anzahl der zeichen ohne "00"
  if (l div 2) = (l/2) then
    result:= l div 2 // index
  else
    result:= -1; // rückgabe für fehlerbehandlung
end;