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

[ZeroQool007]

Kann mir keiner helfen?! =(

[freak4fun]

hallo
zum ersten problem:

Code:

begin
  // Schreibzugriff per direktes schreiben verboten (nur lesen)
  RichEdit1.ReadOnly := True;
  // Wenn die ZeilenAnzahl < = 21 ist
  if RichEdit1.Lines.Count <= 21 then
  //dann eintargen
    RichEdit1.Lines.Add('Test')
  else
  //zB sonst den Butten deaktivieren oder was anderes eben
    Button1.Enabled := False;
end;

das zweite problem:

Code:

  Richedit1.Lines.Clear;
  //und alles wieder weg ;)

hoffe es hilft dir habs auch ebend erst versucht

PS: Erst denken dann posten, aber traue dich zu Fragen. Ich helf gern. ;)

mfg
freak

[freak4fun]

hallo

wie willst du den text ins richedit eintragen?

direkt : denn musst du bei jedem tastendruck prüfen ob der string in der zeile = der festgelegten länge ist (meine lösung)

per button: prüfen ob der string den man einfügen soll auch <= der vorgegebenen länge ist (meine lösung)

wer bessere ideen hat bitte posten

mfg
freak

[ZeroQool007]

Hi..
@freak...an wen war nun deine Lösung gerichtet?

Ich habe das Line Problem so gelöst:

Delphi-Quellcode:

begin
  if Memo1.Lines.Count< 10 then Memo1.WantReturns:=true;
  
  if Memo1.Lines.Count>9 then Memo1.WantReturns:=False;
  lbl_Ausgabe.Font.Color := clgreen;
  lbl_Ausgabe.Caption := IntToStr(10  - Memo1.Lines.Count);
    if Memo1.Lines.Count >= 10 then
      begin
        lbl_Ausgabe.Font.Color := clred;
        lbl_Ausgabe.Caption := 'Maximale Zeilenanzahl erreicht!';
        StBar_H.Panels[3].Text := 'Maximale Zeilenanzahl erreicht!';
     end; 
end;

Nur ich bekomme es nicht hin, dass jede Zeile nur 50Zeichen annehmen soll und danach zB in die nächste springen soll(Zeilenumbruch)....

[freak4fun]

hallo

was ist "lbl_Ausgabe" und "StBar_H.Panels[3]"

sry kann ich so nicht erkennen

mfg
freak

[ZeroQool007]

ist einfach nur eine Textausgabe(label & in der Statusbar), damit der User weiß, wie viele Zeilen er noch zur Verfügung hat bzw wenn er an Zeile 10 gekommen ist, die Meldung bekommt, dass keine Zeile mehr verfügbar ist...

[jim_raynor]

Ich versuche mal ein paar Denkanstösse zu machen.

1. Prüfung im OnKeyPress Ereigniss. Hier kannst du nämlich die Übernahme ins Feld noch beeinflussen (Key auf #0 setzen)

2. Aktuelle Zeile musst du rausbekommen.
3. Wenn du die Zeile hast, sollte es ein leichtes sein, die Anzahl der Zeichen in der Zeile zu ermitteln (Funktion Length)
4. Ist Length bereits die maximale Länge, Key auf #0 setzen, so dass quasi keine Taste gedrückt wurde.

Hoffe das ist so richtig, da ich hier nichts testen kann, aber bei normalen Editfeldern funktioniert es so, sollte also auch an anderer Stelle funktionieren.

P.S: Weiß aber nicht wie es beim Einfügen aus der Zwischenablage aussieht. Da wirst du vermutlich Probleme haben.

[ZeroQool007]

Delphi-Quellcode:

VAR  i : INTEGER;
     s : string;
     key:char;
begin

begin
  s := '';
  for i := 0 to (Memo1.lines.count -1) do
    s := s + Memo1.lines.text;
    i := (50 - Length(Memo1.Text));
  lbl_Zeichen.Font.Color := clgreen;
  lbl_Zeichen.caption := inttostr(i);
  if i = 0 then
   begin
     key := #13;
   end;
end;

Ich habe es mal so gemacht, aber Problem ist hier, dass wenn nach Zeichen einen Zeilenumbruch macht und ich die ENTF Taste drücke ich bei Zeichen50 hängen bleibe, ist auch logisch warum, aber wie kann ich das nun umgehen...?! Ein weiteres Problem ist, dass er die Zeichen falsch zählt, deswegen kann ich zB bei Zeile2 keinen Umbruch nach 50Zeichen machen...wer hat Rat?! =) danke