HTML-Editor in Delphi

Bartsi · 26. Mai 2001

Moin moin,

ich will einen HTML-Editor in Delphi Schreiben und jetzt möchte ich in ein Memo per Knopf druck den text <HTML> schreiben und darunter </html>. Aber wie bekomm ich ein Textumbruch als Quellcode ?

mfG Bartsi :confused:

DrScherzkeks · 27. Mai 2001

Also ich würde erstmal keine Memo nehmen da dieses wie der Windowseditor den nachteil hat das es bei einer bestimmten dateigröße einfach den text abschneidet...besser du nimmst ein RichEdit weil du dort soviel text schreiben kannst bis der Speichervoll ist :cool: ok nun zu deinem eigentlichen Problem... am einfachsten löst du es mit der function ADD die rufst du sowohl beim Memo als auch beim RichEdit so auf ->

Komponentenname.Lines.Add(Text : String);

dies Funktion setzt den text automatisch in eine neue zeile also kannst du dir das mit dem Zeilenumbruch sparen ...

:cool:

Bartsi · 27. Mai 2001

Danke für den Vorschlag aber ich habe mich schon entschieden ich habe es per add gemacht das prob ist das ich die Zeilen auch editieren will, das heißt ich habe ein eingabe feld (nicht das memo) und in einer bestimmten zeile soll sich dann etwas ändern.

Kann mir da auch einer Helfen ?

DrScherzkeks · 27. Mai 2001

Also wie wäre es wenn du dir Einfach mal die Hilfe fürs Memo durch liest das Memo hat so viele Funktionen (z.B. Verschieben von Zeilen, Tauschen von Zeilen, eine Zeile an einer bestimmten Stelle einfügen) da findest du bestimmt was du brauchst :cool:

Bartsi · 27. Mai 2001

Jo ich habe das prob schon gebannt

Aber eine andere frage.

Ich habe mein Memo und änder da eine Zeile.

die Zeile lautet <body bgcolor=Balck>

Wobei das bgcolor=black das geänderte ist.

Und da ein Body Tag mehrere eigenschaften hat möchte ich diese auch bei Combobox auswählen können. Das Prob ist nur wenn ich ein Replace string nehme dann überschreibt er die anderen funktionen. Also bauche ich eine Möglichkeit um ihm zu sagen das er die Zeile zwar suchen soll aber das nur hintendran hängen soll.

Kann mann das machen ?

Wenn ja kannst du mir mal bitte den Code Posten ? Bitte

mfG Bartsi :confused:

DrScherzkeks · 28. Mai 2001

das ist auch relativ einfach ... weißt du schon wie du die zeile suchen willst ???

wenn nicht ist das einfache du gehst jede zeile des textes durch und nimmst die pos funktion sie gibt einen Zahlenwert zurück ist dieser größer als 0 dann ist der gesuchte string in dem zu suchenden string

beispiel:

if pos('Suchtext','Text für Suchtext') then

...

an hand der zeile und pos kannst du dann zu dem text springen....

und wie jetzt bei dir das zu machen mußt du ja nur gucken wo dein text es auftaucht speichers den text zwischen den '<' & '>' in einen string und änderst ihn nach deinen vorstellungen ab.... :cool:

Sourcecode :

du übergibts 2 strings mußt aber vorher noch die Funktion unter public deklarieren und dann noch einstellen die richtigen bezeichtner (Tform1, Memo) :cool:

procedure TForm1.AddText(Suchtext , Anhang : String);

var i : integer;

s : String;

begin

for i := 0 to Memo1.Lines.Count-1 do

if Pos(UpperCase(Suchtext),UpperCase(Memo1.Lines.Strings))>0 then begin

s:=copy(Memo1.Lines.Strings,1,pos('>',Memo1.Lines.Strings)-1);

Memo1.Lines.Strings:=s+' '+Anhang+'>';

end;

Bartsi · 28. Mai 2001

Moin moin danke für das ganze aber was muss ich unter public machen ?

Bitte mit Code

mfG Bartsi

DrScherzkeks · 29. Mai 2001

type

TForm1 = class(TForm)

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

procedure AddText(Suchtext , Anhang :String);

end;

mal so ne frage du lernst nicht FI oder ?? :cool:

Bartsi · 29. Mai 2001

Doch aber SI

Ich versuche nur so neben bei zu proggen.

Aber danke für deine Hilfe

mfG Bartsi

DrScherzkeks · 30. Mai 2001

Achso na dann ... mhmhm also erster grundsatz erst mal die hilfe durch stöbern wenn du dich daran gewöhnt hast findest du erstens schneller dinge und man prägt sich auch algorythmen auch besser ein... naja freut mich das ich dir helfen konnte :cool:

Bartsi · 31. Mai 2001

Moin moin,

also danke schon für das ganze das hat mir echt geholfen. Aber eins musst du mir noch sagen wie rufe ich dann die Funktion auf ?

wenn ich zb. ein Button oder eine Checkbox habe ? :confused:

mfG Bartsi

lpd · 31. Mai 2001

Nun, Buttons haben ein "OnClick"-Ereignis, in dem du festlegen kannst, was passieren soll, wenn du draufklickst (logisch... ). In dieser procedure rufst du einfach die Funktion auf.

Wie willst du das mit der Checkbox machen ? Anklicken und dann die Routine mittels eines Buttons starten ? Dann musst du die "Checked"-Eigenschaft überprüfen.

Bartsi · 31. Mai 2001

Ich wollte das so machen das ich wenn ich die Checkbox angeklickt hab das der Text angehängt wird und wenn sie nicht angeklickt ist das der anhang wieder fott ist.

Ich brauche aber bitte den Quellcode

Schließlich bin ich kein AE

mfG Bartsi

lpd · 31. Mai 2001

Kannst du mal einen Screenshot von deinem Formular einfügen ? Ich verstehe deine Problematik net so recht und müsste erst sehen, was du eigentlich machst.

murph · 31. Mai 2001

hallo,

leider hatte ich nicht ganz die zeit, die gesamte diskussion vollständig zu verfolgen. habe nur die frage am anfang mitbekommen, wie man in delphi einen text umbrechen kann. da man dies auch immer wieder benötgt in verschiedenen situtaionen hielt ich es für sinnvoll es zu posten:

Memo1.Lines.Add('<html>' + #13#10 + '</html>');

mit dem #13#10 erreicht man quasi ein carriage return line feed (zeilenumbruch und wagenrücklauf, oder so ähnlich). dies kann man z. b. auch bei showmessage die etwas länger geraten anwenden...

mfg

andik

Bartsi · 31. Mai 2001

Danke Murphi.

Aber darum geht es schon lange nicht mehr

mfG Bartsi

Bartsi · 31. Mai 2001

Moin thedirtydog,

Ich habe zb. eine CheckBox und ein Memo feld.

In dem Memo Feld steht schon von anfang an ein Text drin. Bei dem ganzen geht es um einen HTML Editor.

Die bestehende Zeile in dem Memo Lautet:

'<BODY>

sie soll erweiter werden wenn ich auf die CheckBox klicke. Es soll aber auch wieder weg gehen wenn der Haken aus der CheckBox nehm.

Wenn ich die CheckBox drücke soll er das ganze um den Text BGColor=Black erweitern.

Dann sieht das so aus:

'<BODY BGColor=Black>

aber das prob ist das ich nach dem Text Body erst suchen muss da er sich verschieben kann.

Das ' ist nur mit das forum hier das nicht als html tag verschlugt.

So das war es. Ist doch garnicht so schwer

mfG Bartsi

PS: Das ganze brauch ich mit Quellcode und mit beschreibung wo ich das einfüge. Und wenn ihr noch lust hab nicht mit Schritt beschriftung mit ich das auch ralle

Bartsi · 31. Mai 2001

Original erstellt von Bartsi:
<STRONG>Und wenn ihr noch lust hab nicht mit Schritt beschriftung mit ich das auch ralle </STRONG>

Scheiss Deutsch

Und wenn ihr noch lust habt mit schritt für schritt beschriftung mit ich das auch ralle

Bartsi · 2. Juni 2001

Original erstellt von Bartsi:
<STRONG>Moin thedirtydog,

Ich habe zb. eine CheckBox und ein Memo feld.

In dem Memo Feld steht schon von anfang an ein Text drin. Bei dem ganzen geht es um einen HTML Editor.

Die bestehende Zeile in dem Memo Lautet:

'<BODY>

sie soll erweiter werden wenn ich auf die CheckBox klicke. Es soll aber auch wieder weg gehen wenn der Haken aus der CheckBox nehm.

Wenn ich die CheckBox drücke soll er das ganze um den Text BGColor=Black erweitern.
Dann sieht das so aus:

'<BODY BGColor=Black>

aber das prob ist das ich nach dem Text Body erst suchen muss da er sich verschieben kann.

Das ' ist nur mit das forum hier das nicht als html tag verschlugt.

So das war es. Ist doch garnicht so schwer

mfG Bartsi

PS: Das ganze brauch ich mit Quellcode und mit beschreibung wo ich das einfüge. Und wenn ihr noch lust hab nicht mit Schritt beschriftung mit ich das auch ralle </STRONG>

Wie funzt das den ??????????????

Anmelden

HTML-Editor in Delphi

Empfohlene Beiträge

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Link zu diesem Kommentar

Auf anderen Seiten teilen

Dein Kommentar

Fachinformatiker Jobs

Fachinformatiker.de, 2024 by SE Internet Services

Links

Fachinformatiker.de App

Kontakt

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte