Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi memobox (https://www.delphipraxis.net/20005-memobox.html)

menticore 12. Apr 2004 14:19


memobox
 
Hab da mal ne Frage:
Ich wähle aus einer ComboBox etwas aus und da soll Text in eine MemoBox geschrieben werden. Da aber ein String nur 255 Zeichen zulässt, habe ich es geteilt und mit der 7. Zeile weitergemacht (siehe Code). Das Problem ist aber: Delphi schreibt nur memo6.lines[0] und Nummer 7 nicht. Warum? Wie kann ich es ändern? Ist etwas anderes besser geeignet?

Code:
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
  case combobox2.ItemIndex of
    0: begin
         memo6.Lines.Clear;
         memo6.Lines[0]:='Text der über 7 Zeilen geht';
         memo6.Lines[7]:='Rest des Textes';
       end;
    1: begin
          ...
       end;
    ...
  end
end;
In diesem Sinne, bye ;)

Mirilin 12. Apr 2004 14:31

Re: memobox
 
:hi:

Zitat:

Da aber ein String nur 255 Zeichen zulässt
:gruebel: warum? (das wäre ja dann ein ShortString.


mfg Tobias

Markus K. 12. Apr 2004 14:32

Re: memobox
 
Hallo menticore,
wieso lässt ein String nur 255 Zeichen zu? Dachte, dass das nur bei Delphi 1 so war. Desweiteren könntest du für
Delphi-Quellcode:
memo6.Lines[7]:='Rest des Textes';
folgendes verwenden.
Delphi-Quellcode:
Memo6.Lines.Add('Rest des Textes');
Tschüß Markus

menticore 12. Apr 2004 15:17

Re: memobox
 
Na ich hab versucht den ganzen Text als String zu machen. Da hat er mir aber gesagt: "String literals may have at most 255 elements", d.h. bei mehr als 255 Zeichen zeigt er das an.

Aber danke! Mit 'memo6.Lines.add' klappt es!

Thanx

Christian Seehase 12. Apr 2004 15:28

Re: memobox
 
Moin Menticore,

stimmt, Stringliterale können am Stück nur 255 Zeichen umfassen, aber durch Verknüpfen von mehreren mittels + kann man auch das umgehen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:26 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz