Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
13. Sep 2004
Danke Stevie!
Mich in den Artikel einzuarbeiten, dazu war ich dann doch zufaul... lieber ne Nacht drüber schlafen, und folgendes produziert :D
Jetzt muss ich nur noch die Farben und Formate einpflegen, und der Parser steht... in seinen Grundzügen :)
procedure Tf_main.Button1Click(Sender: TObject);
var
eingabe, format, temp : String;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
7. Sep 2004
also... soweit gehts erstmal
temp := memoEingabe.Text;
repeat
IF temp = '', temp) + 11, Pos('', temp) - 12);
j := Length(tempAus);
richVorschau.Text := richVorschau.Text + (tempAus);
richVorschau.SelStart := Length(richVorschau.Text) - j;
richVorschau.SelLength := j;
richVorschau.SelAttributes.Color := clRed;
Forum: Object-Pascal / Delphi-Language
Delphi
by Tyler,
7. Sep 2004
SelStart in der RichBox währe in dem Fall der schon dort vorhandene Text und SelLength die Länge des addierten Textes ohne CodeTags?
Dann per SelAttribute formatieren. Okay, das krieg ich hin.
Und den Text sondieren:
Wenn ich Zeilenweise vorgehe, hab ich das Problem: Sollte ein CodeTage mehrere Zeilen umgreifen, wird für die darauffolgenden Zeilen keine Formatierung vorgenommen, da in...