MessageBox mit Memo als Text in *vbs

[DarkItachi]

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.

Delphi-Quellcode:

MessageBox(0, Pchar(Memo1.Text), Pchar(Edit1.Text), x + 64);

* (x : integer) also Buttons

Ich mache über einen anderen Button ein vbs Script.

Delphi-Quellcode:

'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:

Delphi-Quellcode:

 & 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

[himitsu]

StringReplace?

alle sLineBreak durch ' & vbCrLf & ' ersetzen

[Luckie]

Warum nimmst du dafür x + 64 nicht die Konstanten? dann weißt du auch morgen noch, was es bedeutet.

[DarkItachi]

@Luckie

ich kann die perfekt auswendig!
Also zu mindestens die Message Icons, bei den Buttons werde ich das wahrscheinlich machen! ^^

Die Icons konnte ich schon seit ich 12 war und dauernd zum Spaß MessageBoxen gemacht habe in einer *vbs Datei!

@himitsu

Thx! Danach habe ich gesucht!
Ich werde bald mal schauen, ob ich das auch gut anwenden kann! ^^

[Luckie]

Du vielleicht und wenn jemand anders mal den Code warten soll? Lesbarer Code ist das jedenfalls nicht.