stringreplace aber wie weiter?

[Headi]

Zitat von Mr_G:

Wie wäre es wenn du dir so Tag-artig Bereiche definierst und die dann je nach belieben anzeigst.
z.B.:

Code:

{start:kind}
...{Alter}...
...{Schule}...
...{etc.}...
{ende:kind}

Wenn du dann den Start eines Bereichs gefunden hast suchst du nach dem Ende und kannst den gesamten Bereich z.B. ausblenden.

Hi Mr_G,

vielen dank erstmal!!
Nicht schlecht die idee.
Also ich habe mir mal diesen Code hier gebastelt,
nur irgendwie ist der ein bisschen umständlich.
Das müsste ich dann ja für jeden block machen...

so hier mal mein 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;

kann man den irgendwie noch ein bisschen optimieren, vereinfachern und verkleinern?

vielen dank schonmal

mfg headi