Ini filer

prøv at kigge på www.ziron.dk/lege_med_inifiler.zip det visser vist det du spørger om :)

/ZIRON

hov www.ziron.dk/lege_med_inifile.zip

/ZIRON

TInifile som ligger i Inifiles unit'en

VAR
f : TInifile;
begin
  F := TInifile.Create('MyInifile.ini);
  F.WriteString('DefaultValues','EditFields',Edit1.Text);
  F.Free;

  F := TInifile.Create('MyInifile.ini);
  Edit1.Text := F.ReadString('DefaultValues','EditFields','');
  F.Free;

end;

/Martin

bliver smidt videre til http://ziron.myip.org/

Damm han er hurtig *S*

hehe ja

[Error] Unit1.pas(61): Undeclared identifier: 'TInifile'
[Error] Unit1.pas(63): Missing operator or semicolon
[Error] Unit1.pas(64): Incompatible types: 'TComponent' and 'String'
[Error] Unit1.pas(65): Missing operator or semicolon
[Error] Unit1.pas(66): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

får denne fejl

hmmm fra mit`? og hvilken delphi kører du med?

/ZIRON

jeg køre delphi 6.0

jeg har lige prøvet endnu engang og kan godt gører det, hvad gjorde du?

/ZIRON

procedure Tcu.Button1Click(Sender: TObject);
VAR
f : TInifile;
begin
F := TInifile.Create('info.ini);
  F.WriteString('UserInfo','UserName', Edit1.Text);
  F.WriteString('UserInfo','UserPass', Edit2.Text);
  F.Free;

er her enfejl?

siger den da det?

har du kigget på det fra mig og martin for ud fra det har du alt hvad du skal bruge?

jeg skal bruge en ini fil som loader username og userpasse.... og hvis jeg andre dem skal den gemme de nye...

Du SKAL huske at use INIFILES

hmmm hvor under uses??

procedure TForm1.HentClick(Sender: TObject);
var
  ini : TInifile;
begin
ini := TIniFile.Create('c:\user.ini');
Edit1.Text := ini.ReadString('user', 'username', '');
Edit2.Text := ini.ReadString('user', 'userpass', '');
ini.Free;
end;

procedure TForm1.GemClick(Sender: TObject);
var
ini : TInifile;
begin
ini := TIniFile.Create('c:\user.ini');
ini.WriteString('user', 'username', Edit1.Text);
ini.WriteString('user', 'userpass', Edit2.Text);
ini.Free;
end;

/ZIRON

hent det eks. jeg har givet dig link til, der kan du se det hele...

/ZIRON

nu får jeg fejlen

[Error] Unit1.pas(63): Unterminated string

zironhar prøvet det virker ikke

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Inifiles;  <---- HER

ja men du har stadig godt hente unit1 ind i fx notepad, og så kan du læse soucekoden...

/ZIRON

har jeg gjort ziron

men jeg får fejl her
F := TInifile.Create('info.ini);
 
[Error] Unit1.pas(63): Unterminated string
[Error] Unit1.pas(64): ')' expected but identifier 'f' found

du synes ikke selv at du manlger en ' efter info.ini :)

/ZIRON

ok funger nu men den laver ikke filen

prøv at smide c:\ foran eller hvor det nu er du vil have filen gemt...

/ZIRON

hmmm skod det virker... :)... prøverlig at lave en load

hmmm hvordan får jeg dentil at loade ved program start

procedure TForm1.FormCreate(Sender: TObject);
var
  ini : TInifile;
begin
ini := TIniFile.Create('c:user.ini');
Edit1.Text := ini.ReadString('user', 'username', '');
Edit2.Text := ini.ReadString('user', 'userpass', '');
ini.Free;
end;

/ZIRON

der skere ikke rigtig noget... det virker ikke

min load ser sådan ud

procedure Tcu.Timer2Timer(Sender: TObject);
var
  ini : TInifile;
begin
ini := TIniFile.Create('c:\user.ini');
Edit1.Text := ini.ReadString('UserInfo', 'UserName', '');
Edit2.Text := ini.ReadString('UserInfo', 'UserPass', '');
ini.Free;
Timer2.Enabled := false;
end;

Hvorfor bruger du en timer ???

Prøv at skrive sådan

ini := TIniFile.Create('c:\user.ini');

så er du sikker på placeringen af din ini-fil

det har jeg prøvet.....  hjælper ikke sådan laver jeg den

f : TInifile;
begin
f := TInifile.Create('C:\info.ini');
  f.WriteString('UserInfo','UserName', Edit1.Text);
  f.WriteString('UserInfo','UserPass', Edit2.Text);
  f.Free;


og sådan læser jeg den

procedure Tcu.Timer2Timer(Sender: TObject);
var
  ini : TInifile;
begin
ini := TIniFile.Create('c:\info.ini');
Edit1.Text := ini.ReadString('UserInfo', 'UserName', '');
Edit2.Text := ini.ReadString('UserInfo', 'UserPass', '');
ini.Free;
Timer2.Enabled := false;
end;

filen bliver lavet med sikkerhed da jeg kan se den og åbne den

Jeg kan kun sige at det bedste er at lave en fast sti, så er du sikker på du kan læse den igen, hvis du ikke får læst det ind igen, tyder det på at den ikke finder det og så bruger default værdierne

hvordan laver ejg en fast stil

C:\\INFO.INI

IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'info.ini');

Så vil ini filen altid ligge/blive createt i samme dir. som din exe

Stoney

takker

Selv tak