Bei Memofeld Zeilen anzahl Beschränken

[ferby]

Hallo,

Ich habe eine Memofel gemacht das so groß ist das 22 Zeilen reinpassen. Ich möchte jetzt das mann wenn man bei der 22 Zeile ist nicht mehr in die 23 Zeile kann. Mit Maxlenght kann man ja nur die Anzahl der Zeichen beschränken nicht die Zeilenanzahl. Kann man irgendwie die Zeilenanzahl beschränken? So das der Anwender in den ersten 22 Zeilen machen kann was er will, und nicht in die 23 Zeile kann?


Danke,
Ferby

[Pseudemys Nelsoni]

du könntest die lines abfragen

Delphi-Quellcode:

//wenn KEINE 22 zeilen im memo sind, dann hinzufügen
if not (Memo1.lines.Count-1 > 21) then
  memo1.lines.add('text');

[ferby]

Hallo,

Ich glaub du hast mich falsch verstanden.
Ich will das es nicht möglich ist in die 22 Zeile zu kommen.
Der Anwender kann in den ersten 22 Zeilen schreiben und zwar nur in den ersten 22 Zeilen.
Ist es möglich das zu erreichen oder ist ein Memofeld da das falsche?

[Spezi1980]

ich würde es über eine while Schleife machen und die überflüssigen Zeilen löschen

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
  //prüfen ob mehr Zeilen drin sind und wenn ja löschen
  while (Memo1.lines.Count > 22) do Memo1.lines.delete(21);
  //Falls ein Enter eingegeben wird dieses auch gelöscht
  if (Memo1.Lines.Count=22) and (Key=#13) then Key:=#0;
end;

Wenn man nur die Zeilen löscht die zuviel sind, wird die zeile 22 bei jedem drücken der "Enter" Taste auch mit überschieben. Daher ist es besser diese Prüfung im OnKeyPress Ereigniss des Memos zu machen und beim drüchen der "Enter" Taste diese zu ignorieren.
[Edit]noch ein bissl Erklärung is besser [/Edit]

[p-lab]

Hi,

das ist zwar keine optimale Lösung, aber vielleicht hilft es dir weiter:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  If Memo1.Lines.Count>22 then Memo1.Lines.Delete(Memo1.Lines.Count-1);
end;

mfg p-lab

[p-lab]

hi nochmal,

Besser du benutzt RichEdit, da kannst du mit RichEdit.WantReturns:=False einen weiteren Zeilensprung unterdrücken:

Delphi-Quellcode:

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  If RichEdit1.Lines.Count>21 then RichEdit1.WantReturns:=False;
end;

ps: du musst den Wert bei weniger als 21 zeilen natürlich wieder auf True zurücksetzen

mfg p-lab

[ferby]

Hi,

Danke ich werde RichEdit verwenden, wo ist eigentlich der uunterschied zwischen memo und richedit, ich meine was kann memo was richedit nicht kann?

[ManuelM]

Zitat:

Zitat von ferby

Hi,

Danke ich werde RichEdit verwenden, wo ist eigentlich der uunterschied zwischen memo und richedit, ich meine was kann memo was richedit nicht kann?

Die Frage muss genau umgekehrt lauten:
Was kann RichEdit was ein Memo nicht kann?

RichEdit kann Text formatiert ausgeben, Memo nicht, dass ist der größte und wichtigste unterschied.

Gruß

[ferby]

Halllo

Wenn Rich Edit alles und noch mehr kann als Memo, warum gibt es dann memo?

Ach ja habe noch eine Frage:
Kann ich irgendwie alle Zeilen in Rich Edit löschen, oder muss ich da jede Zeile löschen?


Danke,
Ferby

[ZeroQool007]

Gibt es auch eine Möglichkeit das jede Zeile nur eine bestimmte Anzahl an Zeichen zuläßt! zB darf jede Zeile nur max. 50Z. haben und soll 10Zeilen insgesamt haben...danke im voraus....