An welcher Position war/ist die Variable im Template

[ConnorMcLeod]

Aus dem Kopf ungetestet ungefähr so: ?

Delphi-Quellcode:

const
  TMP_COUNTER = '%counter%';
  TMP_YEAR    = '%year%';

function ExtractCounterFromString(const AString: string; const ATemplate: string): integer;
var 
  liPosCounter, liLengthCounter: integer;
  liLengthYear: integer;
  lsResult: string;
begin
  liPosCounter := Pos(TMP_COUNTER, ATemplate);
  liLengthCounter := Length(TMP_COUNTER);
  liLengthYear := Length(TMP_YEAR);
  lsResult := Copy(AString, liPosCounter + liLengthCounter + 1, Length(AString));
  lsResult := Copy(lsResult, 1, Length(lsResult) - liLengthYear);
  Result := StrToIntDef(lsResult, -1);
end;

procedure ImportiereDatensaetze;
var
  liMaxCounter: integer;
begin
  liMaxCounter := -1;
  while EinDatensatzErfolgreichGelesen do begin
    liMaxCounter := max(liMaxCounter, ExtractCounterFromString(GelesenerDatensatz.CounterString);
  end;
  DoWhateverWith(liMaxCounter);
end;