Italian community of Lazarus and Free Pascal

Con TMemo questo mi sembrava funzionare

Codice: [Seleziona]

procedure TForm1.Memo1Change(Sender: TObject);
begin
  while Memo1.Lines.Count > 5 do
    Memo1.Lines.Delete(Memo1.Lines.Count -1);
end;

non so se è applicabile con DBMemo, non l'ho mai usato.

Per funzionare funziona, però se già siamo al massimo delle righe:
Se l'utente scrive inserendo qualcosa, per esempio sulla prima riga, se va a capo gli viene cancellata l'ultima riga.
Spero di essermi spiegato bene.
Io vorrei qualcosa che impedisca proprio di scrivere se la scrittura implica la creazione di una nuova riga, analogamente a quello che  succede con i dbedit quando si raggiunge il n. max di caratteri impostato con MaxLength, qui ci vorrebbe un MaxRow.

Non saprei cosa suggerirti se non un banale check ogni volta che si digita qualcosa all'interno del TMemo.
Ma immagino sia la tua ultima opzione. 

Infatti, è quello che ho provato a fare. Ho inserito questo codice:


Ma non funziona bene.

Non saprei cosa suggerirti se non un banale check ogni volta che si digita qualcosa all'interno del TMemo.
Ma immagino sia la tua ultima opzione. 

Ciao a tutti,
qualcuno sa come limitare il numero massimo di righe che l'utente può inserire in un dbmemo o in un memo.
Ho cercato in giro ma non ho trovato soluzioni valide.
Grazie in anticipo.

dovresti controllare l'assegnazione seguente
che secondo me non crea una matrice ma un array monodimensionale

per avere una matrice di 1 sola riga, dovresti fare: