Textaugsabe mit ASCII Werten

Flow_K · Beiträge: 21 Windows XP

Hallo,

Ich hab eine Frage und zwar, wie kann man den eine aufsteigende Buchstabenreihe (A,B,C,D....) in einer Paintbox zeichnen? Das Prinzip ist mir einigermaßen klar -> Variable ab 65(A) wird in ner For-Schleife um eins erhöht. Nur die genaue ausführung is mir ein Rätsel?! Ich hab an Textout gedacht, da ich die Koordinaten wo der Text geschrieben werden soll festlegen möchte, oder an den Variablentype Char?

Wenn jemand diese doch schräge Ausführung versteht und eine Lösung für mein Problem hat, dann wäre ich ihm super dankbar, wenn er mir diese mitteilen würde.

MFG Flo

Narses · Verfasst: Do 20.04.06 11:48

Moin!

Sowas?

markieren

Delphi-Quelltext

1:	PaintBox1.Canvas.TextOut(10,10,'A');

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

chrisw · Beiträge: 439 Erhaltene Danke: 3 W2K D7

So in etwa ?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var i,pos : Integer;
begin
  pos := 1;
  for i := 65 to 90 do
  begin
    canvas.textout(pos,1,chr(i));
    pos := pos + canvas.textwidth(chr(i));
  end;
end;

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.

Flow_K · Beiträge: 21 Windows XP

Ihr seid echt gut! wobei das für euch wahrscheinlich nich so die Anstrengung war;)

Danke, genau so wollt ich das... Danke Leute!

Bis dann Flo

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme