Læse og skrive i INI fil

Skriv TIniFile, stil caret\'en i ordet og tryk F1 :-)

huse uses inifiles.

Jens B

psy >> jeg er ikke sikker på ar \"F1\" findes på anold\'s tastatur, kan vi ikke guide ham en anden vej ?

/Martin

psv>> Jeg har prøver din anvisning den virker ikke nå jeg gør som du siger kommer det til at stå TIniF1File hvad gør jeg galt ? :-)

Jens B

JB >>> *GGGGGGG*

VAR
  TestStr : STRING;


**** Læsning ****

var
  WinIni: TIniFile;
begin
  WinIni := TIniFile.Create(\'Win.Ini\');
  with WinIni do
  begin
    TestStr := ReadString(\'Test\', \'TestStr\', \'Default text her\');
  end;
  WinIni.Free;
end;



**** Skrivning ****

var
  WinIni: TIniFile;
begin
  WinIni := TIniFile.Create(\'Win.Ini\');
  with WinIni do
  begin
    WriteString(\'Test\', \'TestStr\', TestStr);
  end;
  WinIni.Free;
end;

Sådan, hvis vi skal prøve med et par knapper ;o)

VAR
  TestStr : STRING;


procedure TForm1.ReadButtonClick(Sender: TObject);
var
  WinIni: TIniFile;
begin
  WinIni := TIniFile.Create(\'Win.Ini\');
  with WinIni do
  begin
    TestStr := ReadString(\'Test\', \'TestStr\', \'Default text her\');
  end;
  WinIni.Free;
end;




procedure TForm1.WriteButtonClick(Sender: TObject);
var
  WinIni: TIniFile;
begin
  WinIni := TIniFile.Create(\'Win.Ini\');
  with WinIni do
  begin
    WriteString(\'Test\', \'TestStr\', TestStr);
  end;
  WinIni.Free;
end;

Man kan også bruge win32 funktionerne : GetPrivateProfileString() og SetPrivateProfileString()

Jens B

JB >> A\' hva !!!! , den vil ikke compilere GetPrivatF1eProfileString, hvordan gør man *S*

Lad nu være med at blive alt for \"langhårede\" I to bit-vendere *gg*

Det lyder lidt som et newbii-spørgsmål :o)