fixrec = record
nazwa: string [20];
adres: word;
ilekan: word;
kolor1: word;
kolor2: word;
Sgobo: word;
rotacja: word;
Rgobo: word;
pryzma: word;
zoom: word;
ostrosc: word;
fader: word;
strobo: word;
pan: word;
tilt: word;
speed: word;
end;
fixarr = array[1..13] of fixrec;
fixfile = file of fixrec;
procedure TMainForm.LoadFix(Sender: TObject);
var
prefs: fixfile;
fix: fixrec;
i: byte;
begin
{$I-}
AssignFile (prefs, 'fixtures.pre');
FileMode := 0;
Reset(prefs);
<--------- HERE IS LINE 209
if IOResult <> 0 then begin
ShowMessage('Nie znaleziono pliku preferencji.');
prefsLoaded := False;
end
else begin
for i := 1 to 12 do begin
Read (prefs, fix);
fixtures[i] := fix;
end;
CloseFile (prefs);
prefsLoaded := True;
{$I+}
end;
end;
[Error] PrefsFrm.pas(209): Missing operator or semicoloN
What does it mean? Nothing is missing!
--
Andrzej Kryński
http:\tichy.fm.interia.pl
