Jak zrobić takie coś??
Mam sobie napisany programik. I jak teraz taki bajer zrobić:
Jeżeli w pliku ini w katalogu z programem wpiszę linie "Kolor = szary" to żeby po uruchomieniu programu kolor tła był szary albo inny. Chodzi mi po prostu o to żeby czytał dane z INI.
Jesli piszesz w Delphi to RTFM (a raczej RTFHelp):
Modul IniFiles, klasy TIniFile, TMemIniFile, TCustomIniFile
--Pawel
Delphi6
coś w tym stylu
case ini.ReadString('Ustawienia','kolor','') of
szary: form.color:=clSilver;
czerwony: form.color:=clRed;
end;--Delphi 6
Pozdrowienia,
Imperior
aha a jak nie wiesz jak działają i obsługuje się pliki ini to w artykułach delphi jest art. "INI"--Delphi 6
Pozdrowienia,
Imperior
Sprawa jest prosta. Wrzuc do pustej formy Buttona i ColorDialog. Nastepnie dorzuc te procedurki.
Polega to na konwersji koloru do integera przy zapisie, a przy odczycie jest odwrotenie. Nie ma potrzeby pisac dlugich case'ow.... [bez urazy Imperior]
procedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Prog.ini');
if ColorDialog1.Execute then Ini.WriteInteger('Kolory','Tło',Integer(ColorDialog1.Color));
Ini.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Prog.ini');
Form1.Color:=TColor(Ini.ReadInteger('Kolory','Tło',clBtnFace));
Ini.Free;
end;
MIlego testowania :)-------[ Delphi 6 Rulez 4 Ever!, przynajmniej do czasu gdy naucze sie C++ :) ]------
Sheitar w dniu 14.3.2002 15:5 napisal:
Sprawa jest prosta. Wrzuc do pustej formy Buttona i ColorDialog. Nastepnie dorzuc te procedurki.
>Polega to na konwersji koloru do integera przy zapisie, a przy odczycie jest odwrotenie. Nie ma potrzeby pisac dlugich case'ow.... [bez urazy Imperior]
>
>procedure TForm1.Button1Click(Sender: TObject);
>var
> Ini: TIniFile;
>begin
>Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Prog.ini');
>if ColorDialog1.Execute then Ini.WriteInteger('Kolory','Tło',Integer(ColorDialog1.Color));
>Ini.Free;
>end;
>
>procedure TForm1.FormCreate(Sender: TObject);
>var
> Ini: TIniFile;
>begin
>Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Prog.ini');
>Form1.Color:=TColor(Ini.ReadInteger('Kolory','Tło',clBtnFace));
>Ini.Free;
>end;
>
>MIlego testowania :)
>
>--
>-----[ Delphi 6 Rulez 4 Ever!, przynajmniej do czasu gdy naucze sie C++ :) ]------
tHx