Strings mit ascii

JeanvanHees · Beiträge: 146 win 2000 D6 Pers

Tag Auq!

Wie kann ich strings mit ascii's auf eine einfache weise deklarieren so das es funktioniert.
Auf diese weise geht es nicht gut:

String:= 'H'+Chr(13)+'A'+Chr(13)+'L'+Chr(13)+'L'+Chr(13)+'O';

Und Ich muss es mit textout auf einen canvas setzen also möchte ich das ganze in einem einzigen commando setzen können.
Ich weiß es ist früh, aber ich bin sicher ihr könnt mir helfen.

Tschüß!

_________________
Cause even though I know things won't get any better, they can certainly never get much worse!

Alfons-G · Verfasst: Mo 26.08.02 10:04

markieren

Quelltext

1:	MeinString := 'H'#13'A'#13'L'#13'L'#13'O';

_________________
Alfons Grünewald

JeanvanHees · Beiträge: 146 win 2000 D6 Pers

Danke Mr G.
Bin sicher das es mir sehr weiterhelfen wird.

_________________
Cause even though I know things won't get any better, they can certainly never get much worse!

JeanvanHees · Beiträge: 146 win 2000 D6 Pers

Funktioniert noch immer nicht, liegt es vielleicht an die funktion?:
TextOut(1,20,'H'#13'A'#13'L'#13'L'#13'O');

_________________
Cause even though I know things won't get any better, they can certainly never get much worse!

Alfons-G · Verfasst: Mo 26.08.02 12:41

Hallo, wenn Du den Text auf dem Canvas senkrecht schreiben willst, musst Du #10#13 verwenden. Das ist der Windows-Zeilenumbruch.

:!:

_________________
Alfons Grünewald

JeanvanHees · Beiträge: 146 win 2000 D6 Pers

funktioniert nicht, ich krieg nur ¦¦ Also mit :
TextOut (35,517,'t'#10#13'a'#10#13'g');
Ich krieg es jetzt auch ohne den enter und linefeed aber dan muss ich immer die positionen aussuchen und das ist so umstandlich.

_________________
Cause even though I know things won't get any better, they can certainly never get much worse!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme