Hello. The program was written in Embarcadero RAD Studio Delphi 2010, Windows 7 32-bit OS ... When you start the program on Vista, errors of a different kind come out ... What to do? ...
For example in FormCreate ...
dir:='c:/Dir'; fileName:='c:/Dir/files.txt'; if (DirectoryExists(dir)) then {ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ Π½Π°Π»ΠΈΡΠΈΠ΅ Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΈΠΈ} begin if (FileExists(fileName)) then {ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ Π½Π°Π»ΠΈΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π°} begin AssignFile(usersfile, fileName); Reset(usersfile); while not Eof(usersfile) do begin i:=i+1; ReadLn(usersfile, temp[i]);{ΡΠΈΡΠ°Π΅ΠΌ ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ} end; CloseFile(usersfile); end; end else begin ForceDirectories(dir); AssignFile(usersfile, fileName); ReWrite(usersfile); CloseFile(usersfile); end; when you press a button
AssignFile(usersfile, fileName); Append(usersfile); WriteLn(usersfile, edit1.text); // Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ· ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ
ΠΏΠΎΠ»Π΅ΠΉ WriteLn(usersfile, edit2.text); WriteLn(usersfile, edit3.text); WriteLn(usersfile, edit4.Text); CloseFile(usersfile); An error occurs invalid specification files% s ...
Also, an error occurs when connecting to the server ...
Thank.