Fragen zu Memo-Felder

[Sharky]

Zitat von -lx-:

Diese Eigenschaft gibt es aber nicht bei Memo-Feldern.

Nein? Bei mir gibt es die Eigenschaft.

In Lines stehen die einzelnen Zeilen des Memos. In Text steht der gesamte Text.

Du könntest es natürlich so machen wenn Du die Anzahl der Zeichen haben möchtest:

Delphi-Quellcode:

function CountMemoLines (aMemo : TMemo) : integer;
var
  ndx : integer;
  counter : integer;
begin
  counter := 0;
  for ndx := 0 to Pred(aMemo.Lines.Count) do
  begin
   counter := counter + Length(aMemo.Lines[ndx]);
  end;
  result := counter;
end;

procedure TForm1.btn_CharCountClick(Sender: TObject);
begin
  ShowMessage(IntToStr(CountMemoLines(memo_Memo1))); // Nur die Zeichen
  ShowMessage(IntToStr(Length(memo_Memo1.text))); // inkl. der Zeichen für Zeilenumbruch
end;