Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by glkgereon,
12. Dez 2004
nee, tu ich nicht, ich bin noch dabei mich selkber zu prügeln ;)
bei den fehlern :roll:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by glkgereon,
12. Dez 2004
so, getestet und funzt!!!
procedure TForm1.Button1Click(Sender: TObject);
var temp: integer;
begin
temp:=0;
RichEdit1.SelStart:=0;
while PosEx('Scheisse',RichEdit1.Text,temp) > 0 do begin
RichEdit1.SelStart:=PosEx('Scheisse',RichEdit1.Text,temp)-1;
RichEdit1.SelLength:=8;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by glkgereon,
12. Dez 2004
:wall: :wall: :wall:
temp:=0...
lokale variablen müssen initialisiert werden :(
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by glkgereon,
12. Dez 2004
nein, so:
procedure TForm1.Button1Click(Sender: TObject);
var temp: integer;
begin
while PosEx('Scheisse',RichEdit1.Text,temp) > 0 do begin
RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text)-1;
RichEdit1.SelLength:=8;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.SelAttributes.Style := ;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by glkgereon,
12. Dez 2004
mann ich bin heut müde....also, nächster versuch:
procedure TForm1.Button1Click(Sender: TObject);
var temp: integer;
begin
while PosEx('Scheisse',RichEdit1.Text,temp) > 0 do begin
RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text);
RichEdit1.SelLength:=8;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.SelAttributes.Style := ;