Zeichen im Memo zählen

[_Jack_]

Ahoi,

wie kann ich die Zeichen aus dem Memo zählen?

Geht es auch ohne Schleife?

MFG

[EDatabaseError]

Um ne schleife wirst du IMHO nicht kommen...
Du musst einfach aus jeder Line die Zeichen zählen.

schau dir mal Memo.Count und Memo.Lines[i].Lenght an.

Mfg
Tobi

[Bernhard Geyer]

Length(Memo.Lines.Text)

Wenn Du die Zeilenumbrüche rausrechnen willst Memo.Lines.Count abziehen

[raiguen]

Zitat:

Zitat von Bernhard Geyer

Length(Memo.Lines.Text)

Wenn Du die Zeilenumbrüche rausrechnen willst Memo.Lines.Count abziehen

Würde sagen: 2 mal Memo.Lines.Count abziehen, da ja bekanntermassen ein ZeilenUmbruch aus #10#13 - somit 2 Zeichen - besteht...

[3_of_8]

Richtig, außer man kompiliert für Linux.

[DP-Maintenance]

Dieses Thema wurde von "Christian Seehase" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Hat mit Delphi zu tun.

[Sidorion]

Dabei muss man allerdings beachten, dass man sowohl bei Zugriff auf Lines, asauch bei Text eine eventuelle RTF-Formatierung veriert. Daher vorher in einen MemoryStream speichern, Länge ermitteln und dann zurücklesen.

[Christian Seehase]

Moin Rainer,

der Zeilenumbruch ist #13#10.

[marabu]

Hallo Leute,

#13#10 heißt bei mir sLineBreak - da kann man sich kaum vertun. Wenn wirklich die Speichergröße des Memo-Textes bestimmt werden soll, dann ist Length(Memo.Text) verführerisch kompakter Code. Allerdings muss Text erst wieder aus den einzelnen Lines zusammengebaut werden, weshalb das Aufsummieren der Zeilenlängen eventuell schneller und speicherplatz-ökonomischer ist.

Aber vielleicht geht es gar nicht um die Bestimmung des Größe des Textes, sondern um das Zählen der einzelnen Zeichen:

Delphi-Quellcode:

type
  TFreq = array [Char] of Cardinal;

procedure CountChars(const s: String; var freq: TFreq);
var
  i: Integer;
begin
  for i := 1 to Length(s) do
    Inc(freq[s[i]]);
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  Freq: TFreq;
  i: Integer;
begin
  FillChar(Freq, SizeOf(Freq), 0);
  with Memo do
    for i := 0 to Pred(Lines.Count) do
      CountChars(Lines[i], Freq);
end;

Freundliche Grüße

[raiguen]

Zitat:

Zitat von Christian Seehase

Moin Rainer,

der Zeilenumbruch ist #13#10.

Moin Christian...
jo, ist klar... sorry, ein kleiner 'Zahlendreher' meinerseits ;)

[Hansa]

Zitat:

Zitat von raiguen

Zitat:

Zitat von Christian Seehase

Moin Rainer,

der Zeilenumbruch ist #13#10.

Moin Christian...
jo, ist klar... sorry, ein kleiner 'Zahlendreher' meinerseits ;)

Fehler ? Wo soll der sich denn auswirken ? :gruebel: Christian Seehase hat aber bestimmt ein kurzes Beispiel. :angel2: :mrgreen:

[Christian Seehase]

Moin Hansa,

Delphi-Quellcode:

var
  sl : TStringList;

begin
  sl      := TStringList.Create;
  try
    sl.Text := 'hallo'#10#13'test';
    ShowMessage(IntToStr(sl.Count));
    sl.Text := 'hallo'#13#10'test';
    ShowMessage(IntToStr(sl.Count));
  finally
    sl.Free;
  end;
end;