Wie erstelle ich einen Texteditor?

[inherited]

In Delphi ist es Problematisch Form-Proceduren so zu definieren...
Geh in deine Form und doppelkleicke im OI unter ereignisse Doppelt auf OnShow und kopier dann den Quelltext da rein

[inherited]

Zitat:

Zitat von Gabberman

Ich hab da mal ne Frage.
Ich hab folgenden Quellcode:

Delphi-Quellcode:

   AssignFile(H, 'daten/schluss.fbe');
    Rewrite(H);
    Writeln(H,  :?:  :?:  :?: 
    Closefile(H);

Mein Richeditfeld heißt 'schlusssatz'.
Gibt es irgend eine Möglichkeit den Inhalt von diesem in der Datei H zu speichern????

:gruebel: :gruebel: :gruebel: :gruebel: :gruebel:


Wäre schön wenn ihr mir helfen könntet!!!

Sorry for Doppelpost:
Entweder gehst du jede Zeile dursch und schreibst sie mit WriteLn rein, oder du packst alles in eine Zeile(sicherlich die unansehnlichere wariante) mit schlussatz.text

[Dirkmswt]

Also ich finde das ganze etwas karg :-D
Schau dir mal die Demos bei der RX Library an,das Richedit Tool hat so viele Funktionen das du damit Wordpad kräftig einheizen kannst :shock:
Ist ähnlich zu Programmieren und ziemlich alle funktionen die das Standard Richedit benutzt sind auch enthalten + Objekte Einbetten etc...
Ich verwende die Library schon seit Delphi4 und bin sehr zufrieden mit dem Package an Komponenten.
Die Lib ist zwar auch in dem Jedi Pack dabei,der ist aber recht riskant zu Installieren da
Delphi schnell mal anzeigt das keine Komponenten mehr Registriert sind.

[Störtebeker]

Wollt mal fragen, ob das auch mit SynEdit geht?

Wenn ich in der Toolbar dem Button für BOLD folgendes zuweise, sagt Delphi:

Delphi-Quellcode:

procedure TForm2.ToolButton18Click(Sender: TObject);
begin
if ToolButton18.Down then
SynEdit1.SelAttributes.Style:=SynEdit1.SelAttributes.Style + [fsBold]
else
SynEdit1.SelAttributes.Style:=SynEdit1.SelAttributes.Style - [fsBold]
end;

[Error] Main.pas(348): Undeclared identifier: 'SelAttributes'
[Error] Main.pas(348): Missing operator or semicolon

und was mir aufgefallen ist, wenn ich die fonts in die combobox lade, sind die völlig ungeordnet.
Also nicht von A nach Z

[lbccaleb]

cooler einsteiger editor

[Dirkmswt]

Zitat:

Zitat von Störtebeker

Wollt mal fragen, ob das auch mit SynEdit geht?

Wenn ich in der Toolbar dem Button für BOLD folgendes zuweise, sagt Delphi:

Delphi-Quellcode:

procedure TForm2.ToolButton18Click(Sender: TObject);
begin
if ToolButton18.Down then
SynEdit1.SelAttributes.Style:=SynEdit1.SelAttributes.Style + [fsBold]
else
SynEdit1.SelAttributes.Style:=SynEdit1.SelAttributes.Style - [fsBold]
end;

[Error] Main.pas(348): Undeclared identifier: 'SelAttributes'
[Error] Main.pas(348): Missing operator or semicolon

und was mir aufgefallen ist, wenn ich die fonts in die combobox lade, sind die völlig ungeordnet.
Also nicht von A nach Z

Ähm also schau doch mal die Unit an und such mal nach SelAttributes,könnte evtl auch setattribute heißen;-)
Kenne die Komponente nicht,bin mit der von der RXLib zufrieden auch wenns jetzt auch schon RTF3.0 gibt;-)
Nur mal so ne Frage,warum willst du überhaupt noch einen Texteditor Bauen?
Es gibt soooooooo viele Editoren wie Word und Kompatible,Quellcode Editoren für alle möglichen Languages usw....
Wenn du das Proggen Lernen willst würd ich dir empfehlen die Grundlagen zu den Technologien selbst zu erarbeiten mit einem möglichst Simplen Editor wie die RTF Komponente von Delphi und einem Guten Buch!
Würde es dir jedenfalls Empfehlen den auch die Freien Komponenten haben so Ihre Macken und man muss schnell mal einen Workarround schreiben :!:
Beim Toolbutton fängts Beispielsweise schon an :mrgreen:
Weil toolbutton.down:=not Toolbutton.down funzt nämlich so garnicht,warum auch immer. :coder2:
Ein Trick wäre Z.B down als Externe Boolean Variable auszulagern.denn so wie du das vorhast wird das nix.

[mistx]

Habe ein Problem damit:

Delphi-Quellcode:

procedure TMainForm.AoeffnenExecute(Sender: TObject);
begin
     If OpenDialog1.Execute then
  begin
    if FileExists(OpenDialog1.Filename) then
    begin
      Richedit1.Lines.LoadfromFile(OpenDialog1.Filename);
end;

end.

Und dann steht als Fehler das hier:

[Pascal Fehler]Mainfrm.pas(43): E2003 Undifinierter Bezeichner:'OpenDialog1'

Was soll ich machen?

[inherited]

hast du eine OpenDialog auf die Form gezogen?

[mistx]

daran lag es aber jetzt kommt:
der rote strich bei
end;
hier kommt der nun end;
also beim zweiten end; das letzt im Quelltext und der meint:
[Pascal Fehler] Mainfrm.pas(53):E2029 Anweisung erwartet, aber Dateiende gefunden
[Pascal Fataler Fehler] Project2.dpr(5): F2063 Verwendete Unit 'Mainfrm.pas' kann nicht compiliert werden

[Die Muhkuh]

Zeig am Besten mal den ganzen Code ;-)