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..

[Blackheart]

Ich glaube Dir fehlen noch einige Grundlagen, am besten noch einige Anfänger Tuts reinziehen. :zwinker:

Die Funktion erwartet einen String und gibt als Ergebnis einen string zurück also

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:=DeleteAllComments(Memo1.Text);
end;

[inherited]

Zitat:

Zitat von 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)

Benutze doch mal die Delphi-Hilfe! Die würde dir sagen, das PosEx in der Unit StrUtils ist.
Die Funktion kopierst du einfach irgendwo hin vor die Funktion in der du es aufrufst. (Vielleicht würden dir die Tutorials auf www.dsdt.info ein wenig weiterhelfen ;) )