also... soweit gehts erstmal
Delphi-Quellcode:
temp := memoEingabe.Text;
repeat
IF temp[1] = '[' then flag := 1 else flag := 0;
if flag = 0 then
begin
k := Pos('[COLOR=', temp);
richVorschau.Lines.Add(Copy(temp, 1, k - 1));
Delete(temp, 1, k - 1);
flag := 1;
memoEingabe.Text := temp;
end else if flag = 1 then
begin
tempAus := Copy(temp, Pos('[COLOR=Rot]', temp) + 11, Pos('[/COLOR]', temp) - 12);
j := Length(tempAus);
richVorschau.Text := richVorschau.Text + (tempAus);
richVorschau.SelStart := Length(richVorschau.Text) - j;
richVorschau.SelLength := j;
richVorschau.SelAttributes.Color := clRed;
richVorschau.Repaint;
Delete(temp, 1, Pos('[/COLOR]', temp) + 8);
memoEingabe.Text := tempAus;
memoEingabe.Repaint;
end;
until temp = '';
nur bleibt mein Programm jetzt immer stehen... Kann jemand sagen warum?
Ich denke mal es liegt an
Until Temp = '';
aber mit
Until Length(Temp) <= 0;
gehts auch nicht.
Jemand ne Idee?