Textstellöen löschen

[Tommy1988]

halölo, ist es möglich, bestimmte textstellen auf buttonklick aus einem text zu löschen?

also z.b. solches hier

) -->

// sowas hier auch

## sowas auch

{und sowas auch}

also dass der sich diese sachen raussucht irgendwie?

[inherited]

Suche mal in der DelphiHilfe nach Pos, PosEx und Copy. Das ist alles as du brauchst ;)

[Tommy1988]

kann ich noch nixnmit anfangen.. eion kleines beispiel wäre nicht schlecht etc..

[Tommy1988]

ja egal.. aber ein beispiel wäre nicht schlecht..

[BenjaminH]

Wie (fast) überall, mit F1 ;-)

[Christian Seehase]

Moin Tommy,

wenn ich mir so ansehe, nach was Du suchst, kann ich nur sagen:
Vorsicht.

Manche dieser Kennungen könnten auch in Strings vorkommen.
Wenn Du das nicht berücksichtigst, würdest Du Stellen bearbeiten, die gar nicht bearbeitet werden müssten.

[Tommy1988]

wegen der F1 sache hatte ich mich verlesen sorry.. naja.. schln und gut aber wie krieg ich das denn schlussendlich hin?

[inherited]

Delphi-Quellcode:

function DeleteAllComments(str: String): String;
var a, b: Integer;
begin
  result:=str;
  while Pos('{', result)<>0 do
  begin
    a:=Pos('{', result);
    b:=PosEx('}', result, a);
    result:=copy(result, 1, a-1)+copy(result, b+1, length(result));
  end;
end;

Ungetestet. Aber das hättest du mit ein wenig nachdenken auch selber geschaft, oder? ;)
Du solltest aber noch beachten, ob die Kommentare in Strings vorkommen.

[Tommy1988]

jetzt musst du mir nurnoch sagen wie ich das ding anwende, wo ich es hinkopiere.. muss ich einen button einfügen oder sowas ?

PosEx wurde nicht deklariert.. so weiter weis ich nicht
(undefinierter bezeichner PosEx)

[Tommy1988]

achso und wo ich schnomal dabei bin.. wie binde ich das in ein memo ein? der soll ja den text in einem memo löschen..