Hey leute
Kann wirklich keiner helfen?
Irgendwie muss man den code doch noch einfacher hinkriegen oder?
also ich meine ich habe ja ca. 5 verschiedene spezifische kategorien,
muss ich jetzt für jede kategorie diesen langen code benutzen??
Hier nochmals der Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
If ComboBox1.Itemindex = 0 then
begin
with RichEdit1 do
while FindText('{point}', 0, Length(RichEdit1.Text), [])<> -1 do
begin
SelStart := FindText('{point}', 0, Length(RichEdit1.Text), []);
SelLength := FindText('{/point}', 0, Length(RichEdit1.Text), [])+8-Selstart;
SelText := Copy(RichEdit1.Text,SelStart+8,SelLength-15);
end;
end
else
begin
with RichEdit1 do
while FindText('{point}', 0, Length(RichEdit1.Text), [])<> -1 do
begin
SelStart := FindText('{point}', 0, Length(RichEdit1.Text), []);
SelLength := FindText('{/point}', 0, Length(RichEdit1.Text), [])+8-Selstart;
SelText := Copy(RichEdit1.Text,SelStart+8,0);
end;
end;
end;
vielen dank schonmal
mfg headi