uses ****,IniFiles;
****
public
{ Public declarations }
Ini:TiniFile;
****
var
Form3: TForm3;
Sis:string;
****
const
IniFileName = 'mycom.ini'
****
procedure TForm3.FormCreate(Sender: TObject);
begin
Ini:=TIniFile.Create(IniFileName);
Sis:=Ini.ReadString('User','Sis','0');
case Sis of
1:RadioButton4.Checked:=true;
0:RadioButton3.Checked:=true;
end;
end;
Использование Ini-файлов и ф-ии Case
Извиняюсь за тупой заголовок, но умней ничо не придумал. Возник такой вопрос (в хелпе рылся, в книгах рылся - ничего...).
Ошибка:
Код:
Ошибка:
Цитата:
Ordinal type required
Чо делать? Подскажите пожалуйста:o .
"Уж сколько раз твердили миру!" (с)
В выражении case выражение должно иметь порядковый тип, строки не допускаются.
В выражении case выражение должно иметь порядковый тип, строки не допускаются.
Цитата: Washington
Извиняюсь за тупой заголовок, но умней ничо не придумал. Возник такой вопрос (в хелпе рылся, в книгах рылся - ничего...).
Ошибка:
Чо делать? Подскажите пожалуйста:o .
Код:
uses ****,IniFiles;
****
public
{ Public declarations }
Ini:TiniFile;
****
var
Form3: TForm3;
Sis:string;
****
const
IniFileName = 'mycom.ini'
****
procedure TForm3.FormCreate(Sender: TObject);
begin
Ini:=TIniFile.Create(IniFileName);
Sis:=Ini.ReadString('User','Sis','0');
case Sis of
1:RadioButton4.Checked:=true;
0:RadioButton3.Checked:=true;
end;
end;
****
public
{ Public declarations }
Ini:TiniFile;
****
var
Form3: TForm3;
Sis:string;
****
const
IniFileName = 'mycom.ini'
****
procedure TForm3.FormCreate(Sender: TObject);
begin
Ini:=TIniFile.Create(IniFileName);
Sis:=Ini.ReadString('User','Sis','0');
case Sis of
1:RadioButton4.Checked:=true;
0:RadioButton3.Checked:=true;
end;
end;
Ошибка:
Чо делать? Подскажите пожалуйста:o .
Код:
procedure TForm3.FormCreate(Sender: TObject);
[COLOR=red]var S:byte;[/COLOR]
begin
Ini:=TIniFile.Create(IniFileName);
Sis:=Ini.ReadString('User','Sis','0');
[COLOR=red]S:=StringToStr(Sis);[/COLOR]
case S of
1:RadioButton4.Checked:=true;
0:RadioButton3.Checked:=true;
end;
end
[COLOR=red]var S:byte;[/COLOR]
begin
Ini:=TIniFile.Create(IniFileName);
Sis:=Ini.ReadString('User','Sis','0');
[COLOR=red]S:=StringToStr(Sis);[/COLOR]
case S of
1:RadioButton4.Checked:=true;
0:RadioButton3.Checked:=true;
end;
end
Тогда уж так:
Код:
procedure TForm3.FormCreate(Sender: TObject);
var S:char;
begin
Ini:=TIniFile.Create(IniFileName);
s:=Ini.ReadString('User','Sis','0')[1];
case S of
1:RadioButton4.Checked:=true;
0:RadioButton3.Checked:=true;
end;
end
var S:char;
begin
Ini:=TIniFile.Create(IniFileName);
s:=Ini.ReadString('User','Sis','0')[1];
case S of
1:RadioButton4.Checked:=true;
0:RadioButton3.Checked:=true;
end;
end
Да я на Integer поменял, да и всё. Проблем меньше.