Getprivateprofilestring

Phraser · Hält's aus hier Beiträge: 14

Kann mir jemand bitte GetPrivateProfileString erklären? Speichern mit WritePrivateProfileString kann ich, aber das Laden aus der ini verstehe ich nicht und auch durch die Hilfe werde ich nicht schlauer... :cry:

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.FormDestroy(Sender: TObject);
var
  path: String;
begin
  path := ChangeFileExt(ParamStr(0), '.ini');
  WritePrivateProfileString('bla', 'Caption', @Edit1.Text[1], @path[1]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  buffer: array[0..255] of Char;
  path: String;
begin
  path := ChangeFileExt(ParamStr(0), '.ini');
  GetPrivateprofileString('bla', 'Caption', '', buffer,
    sizeof(buffer), @path[1]);
  Caption := String(buffer);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme