Einzelnen Beitrag anzeigen

DarkItachi

Registriert seit: 28. Dez 2009
Ort: Berlin
130 Beiträge
 
Delphi 2007 Enterprise
 
#1

MessageBox mit Memo als Text in *vbs

  Alt 7. Feb 2010, 13:05
Hallöchen!

Ich wusste jetzt nicht, ob mein Beitrag in VCL oder WinAPI kommt, da bei mir beides gebraucht wird, glaube ich...
Ganz kurz:

Ich habe ein Memo, ein Edit, ein Button und eine DropDownListe.
Über den Button macht mein Programm eine MessageBox mit Titel vom Inhalt des Edits, Text vom Inhalt des Memos und die Buttons vom Index bestimmt der DropDownliste.
MessageBox(0, Pchar(Memo1.Text), Pchar(Edit1.Text), x + 64); * (x : integer) also Buttons

Ich mache über einen anderen Button ein vbs Script.

'msgbox"' + Pchar(Memo1.Text) + '",' + x + ' + 64",' + Pchar(Edit1.Text) + '"'; So habe ich das reingeschrieben!

So jetzt meine Frage:

In der Memo kann man ja mit Enter eine neue Line machen.
Für jede neue Line möchte ich das dieser Code: & vbCrLf & eingefügt wird...

Wie macht man das am besten?
Ps.:
Ich glaube, es wäre am besten wenn man eine Stringlist erstellt und dann jede Zeile vom Memo1 dort reinkopiert und für jede neue Zeile aber " & vbCrLf & " hinzufügt.
& vbCrLf & ist eine neue Line im vb!

Thx erstmal
Developer since age 14
  Mit Zitat antworten Zitat