Dry-Problem

[CarlAshnikov]

Geht das in die richtige Richtung?

Delphi-Quellcode:

procedure TJavaScriptAttributsFrame.AddAttribute(var AAttrib: TSynHighlighterAttributes; const AName: string);
begin
  AAttrib:= TSynHighlighterAttributes.Create;
  FJavaScriptAttributsList.Add(AAttrib);
  CmbxAttributes.Items.AddObject(AName,TObject(AAttrib));
  Application.ProcessMessages;
end;

procedure TJavaScriptAttributsFrame.AddAttributes;
begin
  AddAttribute(FSpaceAttri, 'Leerzeichen');
  AddAttribute(FStringAttri, 'Strings');
  AddAttribute(FSymbolAttri, 'Symbole');
end;