Ergebnis der Suchanfrage

• Forum: Library: Object-Pascal / Delphi-Language
    Delphi
    by jbg, 27. Jul 2002
  Na da kenne ich eine Lösung mit weniger Programmieraufwand.
  function CaseStringOf(const Value: string; const Args: array of string): string;
  begin
  for Result := High(Args) downto 0 do
  if Value = Args then Break;
  end;
  
  Und das ganze case-insensitive:
  function CaseStringIOf(const Value: string; const Args: array of string): string;
  begin