Richedit, den Anfangstext löschen?

wurstuk · Beiträge: 77 Win XP, Ubuntu Delphi 7 personal

Hi

ähm ich wollte gerade mal versuchen ein Programm zu schreiben was so ähnlich ist wie der
Texteditor von Windows bloß viel einfacher^^
und da hab ich mir gedacht das ich für das Feld wo mann was rein schreibt Richedit
nehmen könnte aber i-wie finde ich im Objektinspektor nichts wo mit mann den Anfangstext ändern kann...
also bei Edit steht da dann ja immer Edit1 und bei einem Label Label1 und bei Richedit
dann halt richedit1...

könnte mir i-jemand sagen wie ich das weg bekomme?

edit: kann mann vllt auch i-wie eine Scrollbar ein bauen das wenn mann mehr als das Fenster groß ist schreibt
mann einfach nach oben scrollen kann und nicht mit den Pfeiltasten jede reihe abklappern muss?

Moderiert von Gausi: Topic aus Sonstiges (Delphi) verschoben am Sa 11.10.2008 um 14:41

_________________
Wer Rechtschreibfehler findet darf sie behalten!
<(^_^)> <[$_$]>

DiamondDog · Beiträge: 460

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
Richedit1.Text:='';
end;

So würde ich das machen.
Weiß aber nicht ob das die Richtige Lösung dafür ist.

Mfg Dog

wurstuk · Beiträge: 77 Win XP, Ubuntu Delphi 7 personal

cool Danke es klappt

_________________
Wer Rechtschreibfehler findet darf sie behalten!
<(^_^)> <[$_$]>

DiamondDog · Beiträge: 460

Nix zu Danken, aber wie gesagt weiß nicht ob das die richtige Lösung dafür ist.
Aber so lange es klappt sollte es ja ok sein

wurstuk · Beiträge: 77 Win XP, Ubuntu Delphi 7 personal

Hmmm soweit bin ich bis jezzt, aber ich hab da noch ein Problem immer wenn ich eine Datei öffne wird
nur die erste Zeile geladen der Rest bleibt weg... ich glaube es liegt an nr, aber ich weiß nicht was ich
ihr zuordnen soll?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    SaveDialog1: TSaveDialog;
    RichEdit1: TRichEdit;
    Datei1: TMenuItem;
    ffnen1: TMenuItem;
    Speichern1: TMenuItem;
    Drucken1: TMenuItem;
    Schlieen1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure ffnen1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var nr: integer;
   diagnose: tstringlist;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
diagnose := tstringlist.Create;
richedit1.Text := '';
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
opendialog1.Execute;
diagnose.loadfromfile (opendialog1.filename);
richedit1.Text := diagnose.Strings[nr]//ich glaube da rann liegt es 
end; 

end.

_________________
Wer Rechtschreibfehler findet darf sie behalten!
<(^_^)> <[$_$]>

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    SaveDialog1: TSaveDialog;
    RichEdit1: TRichEdit;
    Datei1: TMenuItem;
    ffnen1: TMenuItem;
    Speichern1: TMenuItem;
    Drucken1: TMenuItem;
    Schlieen1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure ffnen1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var 
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  richedit1.Clear; //Text löschen
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  if opendialog1.Execute then //Execute ist eine Funktion
    richedit1.Lines.loadfromfile(opendialog1.filename); //Text der Datei ins Richedit laden
end; 

end.

Die globalen Variablen Diagnose und nr brauchst Du nicht (nr war eh nicht initialisiert).

LexXis · Beiträge: 170 Erhaltene Danke: 3

wurstuk hat folgendes geschrieben :

...aber i-wie finde ich im Objektinspektor nichts wo mit mann den Anfangstext ändern kann...

Ich schon

Nennt sich "Lines"

mfg

wurstuk · Beiträge: 77 Win XP, Ubuntu Delphi 7 personal

OK danke an alle!

edit: achso und weiß jemand vllt auch jemand wie mann eine Scrollbar in ein richedit einbaut?

also das mann dann so durch den text scrollen kann^^

_________________
Wer Rechtschreibfehler findet darf sie behalten!
<(^_^)> <[$_$]>

DiamondDog · Beiträge: 460

Guck mal bei den Eigenschaften unter ScrollBars.

wurstuk · Beiträge: 77 Win XP, Ubuntu Delphi 7 personal

so das mit dem Öffnen klappt aber wenn ich etwas speicher kommt zwar das gespeicherte aber auch ganz viele komische zahlen....

weiß jemand wie ich das weg bekomme?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

unit text;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    SaveDialog1: TSaveDialog;
    RichEdit1: TRichEdit;
    Datei1: TMenuItem;
    ffnen1: TMenuItem;
    Speichern1: TMenuItem;
    Drucken1: TMenuItem;
    Schlieen1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure ffnen1Click(Sender: TObject);
    procedure Schlieen1Click(Sender: TObject);
    procedure Speichern1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  richedit1.Clear; //Text löschen

  end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  try
  if opendialog1.Execute then //Execute ist eine Funktion
    richedit1.Lines.loadfromfile(opendialog1.filename); //Text der Datei ins Richedit laden
    except
    showmessage ('Fehler beim Öffnen');
    end;
end;
procedure TForm1.Schlieen1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Speichern1Click(Sender: TObject);
begin
try
if savedialog1.Execute then
richedit1.lines.SaveToFile (savedialog1.FileName);
except
showmessage ('Fehler beim Speichern');
end;
end;

end.

_________________
Wer Rechtschreibfehler findet darf sie behalten!
<(^_^)> <[$_$]>

Ehemaliges Mitglied Erhaltene Danke: 1

Stell das RichEdit mal auf PlainText. Außerdem solltest Du Dir beizeiten eine ordentliche Einrückung angewöhnen.

wurstuk · Beiträge: 77 Win XP, Ubuntu Delphi 7 personal

ja das mit dem einrücken is gerade so ne Sache...

ich hatte so ein Programm das den Quelltext eingerückt hat aber das funktioniert ein paar tage und dann is es plötzlich wieder aus dem Verzeichnis gelöscht...-.-

edit: wie auf plaintext? im Objektinspektor?

_________________
Wer Rechtschreibfehler findet darf sie behalten!
<(^_^)> <[$_$]>

Ehemaliges Mitglied Erhaltene Danke: 1

Ich hab da kein Programm für, aber eine Space-Taste^^.

wurstuk · Beiträge: 77 Win XP, Ubuntu Delphi 7 personal

ja aber dis ist mir i-wie zu anstrengend ^^ hehe

_________________
Wer Rechtschreibfehler findet darf sie behalten!
<(^_^)> <[$_$]>

Ehemaliges Mitglied Erhaltene Danke: 1

Und mir ist das zu anstrengend, unformatierten Code zu lesen. Wenn das mehr als 20 Zeilen sind, steigt da ja niemand mehr durch, was wozu gehört.

jaenicke · Verfasst: Sa 11.10.08 15:35

Dafür empfehle ich dir CnPack, insbesondere CnPack IDE Wizards, da kannst du einfach mehrere Zeilen markieren und mit Tab einrücken bzw. mit Shift + Tab ausrücken. Außerdem zeigt es dir visuell an was wozu gehört, also welches end zu welchem begin und wo welcher Block endet, etc.

Ehemaliges Mitglied Erhaltene Danke: 1

Mehrere Zeilen ein- und ausrücken kann man auch mit IDE-Mitteln.

jaenicke · Verfasst: Sa 11.10.08 16:54

Das kommt vermutlich auch auf die Delphi-Version an, und beim BDS 2006 habe ich davon nix gemerkt, wie geht das da? Mit Markieren + Tab jedenfalls nicht, denn das habe ich ausprobiert gehabt. :nixweiss:

Ehemaliges Mitglied Erhaltene Danke: 1

Markieren und mit STRG-K-I ein- bzw. mit STRG-K-U ausrücken. Geht schon seit TurboPascal 6 :mrgreen:

Yogu · Verfasst: Sa 11.10.08 18:16

Ich denke, das war jetzt genug Off Topic. :roll:

wurstuk hat folgendes geschrieben :

wie auf plaintext? im Objektinspektor?

Ja, stelle einfach die Eigenschaft PlainText des RichEdits auf True. Andernfalls wird eine RTF-Datei gespeichert, die auch Formatierungsinformationen enthält.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme