Sorry, da hatte sich ein Schreibfehler eingeschlichen...selbstverständlich ist es nach wie vor noch eine Prozedur
Delphi-Quellcode:
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
showmessage ('Die Datei "Zustand.hbl" wurde nicht gefunden!');
exit;
end;
writeln (Save, TimeToStr(now) +';'+ HName +';'+ Zeit +';'+ HFarbe +';'+
BoolToStr(Schl) +';'+ BoolToStr (THL) +';'+ BoolToStr (Sound));
closeFile(Save);
end;
Und der Aufruf sieht derzeit aus wie folgt:
Delphi-Quellcode:
procedure TForm1.Speichern1Click(Sender: TObject);//Menüpunkt "Speichern"
var i: integer;
begin
for i := 1 to 35 do
begin
speichern((FindComponent('PanLab' + IntToStr(i)) as TLabel) .Caption,
(FindComponent('PanLabT' + Inttostr(i)) as TLabel).caption,
IntToHex(((FindComponent('PanHalle' + InttoStr(i))as TPanel).Color),6),
StrToBool('bildTHL'+IntToStr(i)),
StrToBool('bildSchl'+IntToStr(i)),
StrToBool('bildSound'+IntToStr(i)) );
end;
end;