Memo.Lines.Count - Anomalie ?

[hathor]

Zitat von Uwe Raabe:

Zitat von wendelin:

(diese ist voll-
ständig leer - KEIN text !)

Offensichtlich nicht! Zumindest eine leere Zeile scheint dort enthalten zu sein. Wie stellst du denn fest, ob das Memo leer ist?

Die 2 Bytes 0D 0A sind enthalten.
Das hätte der Fragesteller aber auch selbst feststellen können!

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
begin
Memo1.lines.savetofile('F:\STF3.txt');
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.lines.savetofile('F:\STF4.txt');
end;

[arnof]

Zitat von DeddyH:

Zitat von arnof:

memo.Lines.Clear

Das geht auf die TStringlist des Memos, memo.Clear ist eine Windowsfunktion und kann sich je mach Komponentenart auch anders verhalten

Ein Blick in die StdCtrls von XE:

Zitat:

Delphi-Quellcode:

procedure TMemoStrings.Clear;
begin
  Memo.Clear;
end;

Die Liste ruft intern also Clear des Memos auf, da kann man das auch selbst tun.

Zitat von arnof:

Trim entfernt KEINE Umbrüche die ein Memo so hat!

Gibt es auch spezielle Memo-Umbrüche? Ich dachte immer, das sei auch nur CR, LF oder beides.

also bei meinem Trim werden in Delphi XE2 keine Umbrüche entfernt , das ist doch auch die Lösung des Ursprünglichen Problems (die Frage des #1 Beitrags

[DeddyH]

Dann machst Du wohl irgendetwas falsch. Was kommt denn hierbei heraus?

Delphi-Quellcode:

  Memo1.Clear;
  Memo1.Lines.Add('');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('');
  ShowMessage(IntToStr(Memo1.Lines.Count));
  Memo1.Text := trim(Memo1.Text);
  ShowMessage(IntToStr(Memo1.Lines.Count));

[wendelin]

Vielen Dank für Eure Hinweise.

Ich habe jetzt einfach bei den EVENTS (ONCREATE) des erzeugten Formulars ein

Delphi-Quellcode:

procedure TForm4.FormCreate(Sender: TObject);
begin
  Memo2.Clear;
end;

eingefügt. Klappt bestens!

Danke nochmals !


Wendelin

[himitsu]

Zitat von DeddyH:

Dann machst Du wohl irgendetwas falsch.

Das macht er wohl, denn das was Trim macht, hatte ich ja beschrieben.
Und das entfernt definitiv alle Arten von Zeilenumbrüchen (Windows, Linux und Mac) aus einem String.

[Sir Rufo]

Zitat von himitsu:

Zitat von DeddyH:

Dann machst Du wohl irgendetwas falsch.

Das macht er wohl, denn das was Trim macht, hatte ich ja beschrieben.
Und das entfernt definitiv alle Arten von Zeilenumbrüchen (Windows, Linux und Mac) aus einem String.

Der Befehl Trim entfernt nicht etwa nur Leerzeichen am Anfang und Ende, sondern alles was als Whitespace definiert ist (dazu gehören nun mal auch die Zeilenumbrüche).

[himitsu]

Sagte ich doch.

Es werden alle Whitespaces ASCII-Steuerzeichen entfernt, also vorne und hinten.