Memo - zeigt nur 2 Lines statt 12 Lines an...

[Christian Seehase]

Moin Himitsu,

Zitat von himitsu:

Eine "normale" TStringList und die Items der ListBox knallen (Exception), wenn man auf nicht existierende Items/Zeilen zugreift.

Das hätt' ich auch gedacht.
Jetzt habe ich es mal in D7 ausprobiert:
Neues Projekt.
TButton
TMemo
TListBox
auf das Formular.

Den Beispielcode drauf und den Button drücken: Gleiches Verhalten, keine Exception aber zwei Zeilen im Memo und 12 in der Listbox.

[mkinzler]

Höchstwahrscheinlich unterdrückt der Setter das und erzeugt die Objekte in der ListBox, im Memo halt nicht.
Will man etwas hinzufügen, sollte man die Add... Methoden verwenden.

[Codix32]

Zitat von mkinzler:

Höchstwahrscheinlich unterdrückt der Setter das und erzeugt die Objekte in der ListBox, im Memo halt nicht.
Will man etwas hinzufügen, sollte man die Add... Methoden verwenden.

Danke mkinzler

[hathor]

Man könnte grundsätzlich gleich in der procedure xxxx.Create folgende Zeile aufnehmen:

for i := 0 to 999 do Memo1.Lines.Add('');

Dann funktioniert der Code in #1 problemlos.

Alternative:
Man hängt an jedes String-Ende #13#10 an, dann geht es auch:

Delphi-Quellcode:

procedure TForm2.Button6Click(Sender: TObject);
var i : Integer;
begin
Memo1.Clear;
for i := 0 to 1002 do Memo1.lines.strings[i] := INTTOSTR(i)+#13#10;
end;

[himitsu]

Zitat von Christian Seehase:

Das hätt' ich auch gedacht.

Vielleicht haben die das irgendwann umgebaut?

Bei TStringList wird ein EStringListError "Listenindex überschreitet das Maximum (%d)" ausgelöst.

Beim TMemoStrings (das im TMemo.Lines) wurde einfach die Fehlerprüfung vergessen, bzw. man hat vergessen die Exception einzubauen und verwirft den Fehler ganz böswillig.

Delphi-Quellcode:

function TMemoStrings.Get(Index: Integer): string;
var
  Text: array[0..4095] of Char;
begin
  Word((@Text)^) := Length(Text);
  SetString(Result, Text, SendMessage(Memo.Handle, EM_GETLINE, Index, Longint(@Text)));
end;

EM_GETLINE > The return value is zero if the line number specified by the wParam parameter is greater than the number of lines in the edit control.

Delphi-Quellcode:

procedure TMemoStrings.Put(Index: Integer; const S: string);
var
  SelStart: Integer;
begin
  SelStart := SendMessage(Memo.Handle, EM_LINEINDEX, Index, 0);
  if SelStart >= 0 then begin
    SendMessage(Memo.Handle, EM_SETSEL, SelStart, SelStart + SendMessage(Memo.Handle, EM_LINELENGTH, SelStart, 0));
    SendTextMessage(Memo.Handle, EM_REPLACESEL, 0, S);
  end
  {else raise exception .... wurde vergessen}
end;

EM_LINEINDEX > it is –1 if the specified line number is greater than the number of lines in the edit control.

Bei praktisch jedem einzelnen SendMessage/SendTextMessage wurde vergessen das Result zu prüfen.
(außer bei dem einen SendMessage(LINEINDEX))



Es kann natürlich auch sein, daß man es auch bei anderen Komponenten vergessen oder wieder ausgebaut hat.
Hab nicht nachgesehn, aber ich hoffe die machen nicht beim FMX mit diesem Mist so weiter.