joar, da stimmt was nicht.
tausch mal die 1 gegen eine 0 aus
Result := NewPattern[0]
[edit]
oder besser so ... ich denk mal das wäre logischer, wenn der Letzte, anstatt der erste Eintrag genutzt würde.
Delphi-Quellcode:
Function GetNewPatt(i: Integer): String;
Begin
If i < Length(NewPattern) Then Result := NewPattern[i]
Else If Length(NewPattern) > 0 Then Result := NewPattern[High(NewPattern)]
Else Result := '';
End;
ich tausche die Anhänge auch gleich aus