Listbox String?

[thiagojonas]

Wie kann ich den alle Wert die in einer Listbox sind als string umwandeln? Ich will sie nämlich ausdrucken.

Z.b.

Delphi-Quellcode:

 ShowMessage('Hallo heute haben' + listbox.Items.Strings + ' einen Wecker gewonnen');

Werden die Leuet dann untereinander aufgelistet?

[mkinzler]

Mit der Eigenschaft .Text

[DeddyH]

ListBox1.Items.Text? Und bevor Du weiterfragst: wieso versuchst Du es nicht mal selbst, dann siehst Du es schon.

[haentschman]

Hallo...
ich würde mal behaupten

Delphi-Quellcode:

ShowMessage('Hallo heute haben' + listbox.Items.Strings[x] + ' einen Wecker gewonnen');

...wobei x dann für deine Zeile steht (Index beginnt bei 0) und ein Integer Wert ist.
:hi:

[edit]

Zitat:

den alle Wert

..hatte ich nicht gleich verstanden :wink:
- für eine Zeile Beispiel in #4
- für den gesamten Text Beispiel in #3
[edit]

[thiagojonas]

Eben, es geht nicht.

Vielleicht leigt es aber an was anderes. Das ist mein Textout:

Delphi-Quellcode:

          TextOut (sp+1*SpDiff,27*ZlDiff,text.lines + #13#10 + 'Durch meine Abwesenheit habe ich folgende Klausuren versäumt: ' + #13#10 + form10.ListBox1.Items.Text + #13#10 +
                   'Die notwendigen ärztlichen Bescheinigungen sind beigefügt.' + #13#10 + 'Mit freundlichen Grüßen' + #13#10 + #13#10 +
                   + #13#10 +  #13#10 +  #13#10 +  #13#10 +  #13#10 + 'Betroffene Lehrkräfte/Unterschriften:' +  #13#10 + lehrer_list.Items.Text);

Ich bin der Meinung ich muss das mit INTTOSTR umwandeln.

[DeddyH]

Was ist denn text.lines?

[thiagojonas]

Zitat:

Zitat von haentschman

Hallo...
ich würde mal behaupten

Delphi-Quellcode:

ShowMessage('Hallo heute haben' + listbox.Items.Strings[x] + ' einen Wecker gewonnen');

...wobei x dann für deine Zeile steht (Index beginnt bei 0) und ein Integer Wert ist.
:hi:

Habe ich auch schon versucht. Geht leider nicht :cry:

[thiagojonas]

Zitat:

Zitat von DeddyH

Was ist denn text.lines?

Ein Memo!

Nicht wunder, ich schreibe grad ein Entschuldigungsprogramm für die Entschuldigung, die ich in der Schule abgeben muss, wenn ich mal nihct da bin.

[DeddyH]

So, und nun denk anhand der obigen Antworten einmal nach, was damit jetzt falsch sein könnte.

[thiagojonas]

Vielleicht das text.lines? Aber mit text.text klappt auch nicht.

[haentschman]

[OT]
...das man ein Programm braucht um versäumte Klausuren aufzulisten ist schon starker Tobak :mrgreen:
[/OT]

[thiagojonas]

Ja, das ist nur ein Teil, wenn es fertig ich lade ich es mal hoch:-D

[DeddyH]

Text ist eine Eigenschaft von TStrings. Lines ist eine TStrings-Eigenschaft von TMemo. Wie muss das also heißen?

[thiagojonas]

Lines.Text?

[DeddyH]

Wie heißt Dein Memo?

[thiagojonas]

Mein memo heißt text.

text.lines.text

lehrer_list.items.Text == ist das richtig?

[haentschman]

[OT]
Sorry aber...

als ich das gelesen habe

Zitat:

Text ist eine Eigenschaft von TStrings. Lines ist eine TStrings-Eigenschaft von TMemo. Wie muss das also heißen?

...fiel mir spontan ein Pult mit DeddyH mit Rohrstock in der Hand und Brille ein :P
[/OT]

[Die Muhkuh]

Ich verweise mal auf DeddyHs Signatur... :wall:

[thiagojonas]

:-D :-D

[DeddyH]

*Rohrstock wegsteck* müsste so stimmen :lol:

[mkinzler]

Wenn das Memo lehrer_list heisst

[thiagojonas]

Zitat:

Zitat von mkinzler

Wenn das Memo lehrer_list heisst

ne das ist ne listbox!

[mkinzler]

Egal beide verwenden TString(list)s zur Speicherung

[Meflin]

Zitat:

Zitat von haentschman

...fiel mir spontan ein Pult mit DeddyH mit Rohrstock in der Hand und Brille ein :P

In Kombination mit seinem Profilbild zweifelsohne ein Bild für Götter :mrgreen:

[DeddyH]

[OT] Ich brauche keinen Rohrstock, ich hab ja 2 "Kampfzwerge" (siehe Avatar), die kann ich in der Not einsetzen :lol: [/OT]

[haentschman]

Zitat:

Mein memo heißt text.

text.lines.text

...war schon nah dran

Schreibe mal Text. und schaue in der Codevervollständigung unter T

PS: Text als Name für ein Memo ist nicht gerade glücklich gewählt. Könnte mit reservierten Wörtern kollidieren.

[thiagojonas]

:gruebel:
Du meinst Memo.Text
geht nich wie du hier siehst.
Vielleicht ist auch was anderes falsch?

[mkinzler]

Das abschreiben ist wohl zu komplex für dich

Delphi-Quellcode:

Memo.Lines.Text

[thiagojonas]

Äh.. sorry, hatte das beim ersten vergessen. Die fehlermeldung bleibt aber. woran liegt das? am lehrer_list.Items.text?

[mkinzler]

Speichere den String mal zwischen, die Funktion scheint die Property nicht als Parameter zu akzeptieren

[thiagojonas]

Vergisst es! Hatte ein + zu viel :wall: :wall: :wall:

[thiagojonas]

Wenn Ihr euch nochmal das bild anguckt, das seht ihr ja das ich mit einem zeilen umbrüche arbeite. #13#10
Irgendwie will das nicht gehen. Auch nicht mit #13 oder #10. Woran liegt das?

[Die Muhkuh]

TextOut berücksichtigt #13#10 nicht, Du musst Zeile für Zeile zeichnen.

[thiagojonas]

Das ist ja blöd. Weil Wenn man einen Text in das Memo Feld eingibt, kann es ja unterschiedlich lang sein.