Delphi-Quellcode:
Font.Name:='Ariel'; // Ich denke du meinst Arial ^^
image1.Show; // Setzt doch sofort Visible auf true;
Font.Size := 1*i; // das 1* kannst du dir auch sparen ^^
s:string; s:='Informatik'; // Wenn du ohnehin nur einen Text hast, kannst du dir die Variable sparen
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var
i:integer;
Schriften: array[1..5] of string; // Eine Reihe von 5 String-Variablen
begin
Schriften[1] := 'Arial';
Schriften[2] := 'Times New Roman';
Schriften[3] := 'Courier New';
Schriften[4] := 'Ringbearer';
Schriften[5] := 'Tahoma'; // Jeder Variable im array eine Scriftart zuordnen
Randomise; // Den Zufallsgenerator initialisieren
with Image1.Canvas do
begin
Brush.Color := clWhite; // Aus der Schleife raus, da es ja reicht, wenn die Farbe einmal gesetzt wird
for i:=1 to 11 do
begin
Font.Size := i; // i*1 war unnötig
Font.Name := Schriften[RandomRange(1, 5)]; //Mit RandomRange wird eine Zufallszahl im Bereich 1 bis 5 erzeugt und der jeweilige String aus dem Array der Eigenschaft Font.Name zugewiesen
TextOut(30, 15*i, 'Informatik'); // Hier reicht es direkt Informatik einzugeben
end;
end;
end;
Achte bei dir auf:
a) das Richtige setzen von begin und end (du hattest eines vor with gesetzt)
b) gute Formatierung (damit ist ein Programm wesentlich überschaubarer und leichter zu verstehen)
EDIT:
- Ich habe das jetzt nur so aus dem Kopf heraus geschrieben -> keine Gewähr für Richtigkeit
- Ich hoffe so meintest du das