Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
26. Mär 2003
Ok, jetzt geht's. Vielen Dank!
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
26. Mär 2003
Stimmt, macht Sinn :roll:
{Halle 1}
bildTHL1: boolean = false; // Variable für Bild "Hallenleiter", Halle 1
BildSchl1: boolean = false; // Variable für Bild "Schloß", Halle 1
bildSound1: boolean = false; // Variable für Bild "Sound", Halle 1
Um den Fehler mal zu päzesieren:
Ich will folgendes übergeben:
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
26. Mär 2003
Sorry, da hatte sich ein Schreibfehler eingeschlichen...selbstverständlich ist es nach wie vor noch eine Prozedur
procedure speichern (Hname, Zeit, HFarbe: string; Schl, THL, Sound:boolean);
var save: Textfile;
begin
AssignFile (save, 'zustand.hbl');
{$i-} Append (save){$i+};
if IOResult <> 0 then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
25. Mär 2003
Ich will sie ja aber nicht kontrollieren sondern in eine Textdatei speichern. Und dafür muß ich an die Funktion zum schreiben einen boolschen Wert übergeben. Dein Tipp hilft mir da also nicht so wirklich weiter...
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
25. Mär 2003
Und wie mache ich das dann wenn ich eine vorher definierte Variable vom Typ Boolean habe(THL, THL2,..., THL35)? Die kann ich ja nicht mit FindComponent aufrufen...
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
25. Mär 2003
Danke!
@moderatoren: Der Thread ist versehentlich im falschen Forum gelandet...wäre nett wenn ihr den verschieben könntet, damit ihn andere später leichter finden (denke mal daß ich nicht der einzige bin der irgendwann mal über dieses Anfänger-Problem stolpert..)
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
24. Mär 2003
Hi Leute!
Folgendes Problem: Ich hab 35 Panels, von denen bestimmte Eigenschaften an eine Funktion übergeben werden sollen. Mein Problem ist nur, daß ich keinen blassen Schimmer habe wie ich es hinkriege daß für die Panels 1 bis 35 jedes Mal die entsprechende Eigenschaft rausgreift.
procedure TForm1.Speichern1Click(Sender: TObject);//Menüpunkt "Speichern"
var i: integer;
begin
for i := 1...