Probleme mit Inifiles

Melanie · Beiträge: 33

Hallo, wie kann man in eine 'ini' Datei eine gewählte Farbe aus dem Colordialog abspeichern, daß bei Programmneustart dieselbige wieder erscheint ?

:oops:

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Speichern:

markieren

Quelltext

1:	IniFile.WriteString('bla','farbe', ColorToStr(ColorDialog123.Color));

Lesen:

markieren

Quelltext

1:	ColorDialog123.Color := StrToColor(IniFile.ReadString('bla','farbe', ColorToStr(ColorDialog123.Color)));

wulfskin · Verfasst: So 30.03.03 16:06

Hallo Melanie!

Da TColor auch eine Arte Integer ist, kann du diesen ganz einfach per WriteInteger in die Ini-Datei schreiben!

Gruß wulfskin!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

Melanie · Beiträge: 33

Hallo,das ist ja klasse!.Aber woher weißt Du das . Steht doch nirgends,oder?

MfG Melly :idea:

wulfskin · Verfasst: So 30.03.03 17:07 Titel: Re: .

Melanie hat folgendes geschrieben:

Hallo,das ist ja klasse!.Aber woher weißt Du das . Steht doch nirgends,oder?

MfG Melly :idea:

Wenn du mich damit meinst:

Probieren geht über Studieren !
Online-Hilfe:
Zitat:

type TColor = -(COLOR_ENDCOLORS + 1)..$02FFFFFF;

Gruß wulfskin!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

also meines wissen musst du den Coller wert umwandeln.... zu einem string z.b. so: ColorToString(Farhbe);

_________________
MFG
Michael Springwald, "kann kein englisch...."

wulfskin · Verfasst: Mo 31.03.03 14:09

mimi hat folgendes geschrieben:

also meines wissen musst du den Coller wert umwandeln.... zu einem string z.b. so: ColorToString(Farhbe);

Was soll man gross dazu sagen?
TColor ist ein Integer mit einem bestimmten Bereich und kann deshalb mit WriteInteger abgespeichert werden!
Basta

!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

sollten man aber nicht tuen, ich habe es mal gemacht....
TColer ist Hex und daherer geht das nicht !!!
versuche es doch mal.
bei meinen verzuchen, hatte es nicht einwandfrei funktioniert ohne umwandlungen...

_________________
MFG
Michael Springwald, "kann kein englisch...."

Ehemaliges Mitglied Erhaltene Danke: 1

Um das gestrige Thema mal aufzugreifen -

Bei mir ist TColor nicht vom Typ Hex. Und meine Versuche funktionierten sehr gut ... ohne Umwandlungen.

markieren

Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  self.Color := clAqua;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ini : TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(paramstr(0),'.ini'));
  try
    ini.WriteInteger('Farbtopf','aqua',self.Color);
  finally
    ini.Free;
  end;
end;

ergibt (beim Klick auf Button 2) folgenden Inhalt der INI-Datei:

markieren

Quelltext

1:
2:

[Farbtopf]
aqua=16776960

Ich seh da keinen Hex-Wert. Aber egal - mit

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button3Click(Sender: TObject);
var
  ini : TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(paramstr(0),'.ini'));
  try
    self.Color := ini.ReadInteger('Farbtopf','aqua',clBtnFace);
  finally
    ini.Free;
  end;
end;

wird er problemlos geladen, und die Form wird gefärbt.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

komisch !
Als ich es bei Delphi 5 Standart gemacht habe, habe ich mich gewundert das die Farbe nicht richtig angezeigt wurde, habe z.b. clred gesagt und was kam raus ???

_________________
MFG
Michael Springwald, "kann kein englisch...."

wulfskin · Verfasst: Di 01.04.03 22:06

MathiasSimmack hat folgendes geschrieben:

Um das gestrige Thema mal aufzugreifen -

Bei mir ist TColor nicht vom Typ Hex. Und meine Versuche funktionierten sehr gut ... ohne Umwandlungen.

markieren

Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  self.Color := clAqua;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ini : TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(paramstr(0),'.ini'));
  try
    ini.WriteInteger('Farbtopf','aqua',self.Color);
  finally
    ini.Free;
  end;
end;

ergibt (beim Klick auf Button 2) folgenden Inhalt der INI-Datei:

markieren

Quelltext

1:
2:

[Farbtopf]
aqua=16776960

Ich seh da keinen Hex-Wert. Aber egal - mit

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button3Click(Sender: TObject);
var
  ini : TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(paramstr(0),'.ini'));
  try
    self.Color := ini.ReadInteger('Farbtopf','aqua',clBtnFace);
  finally
    ini.Free;
  end;
end;

wird er problemlos geladen, und die Form wird gefärbt.

Danke

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

naja ! vieleicht ist das von delphi version zu Delphi version unterschiedlich....

_________________
MFG
Michael Springwald, "kann kein englisch...."

wulfskin · Verfasst: Mi 02.04.03 14:13

mimi hat folgendes geschrieben:

naja ! vieleicht ist das von delphi version zu Delphi version unterschiedlich....

Sicherlich nicht....

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

Melanie · Beiträge: 33

Danke Euch , jetzt weiß ich aber bescheid.

MfG Melly :shock:

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

@wulfskin
und warum hätte es bei mir nicht funktioniert, ohne umwandlung ?????

_________________
MFG
Michael Springwald, "kann kein englisch...."

wulfskin · Verfasst: Mi 02.04.03 20:13

mimi hat folgendes geschrieben:

@wulfskin
und warum hätte es bei mir nicht funktioniert, ohne umwandlung ?????

Vielleicht ein Fehler im Quelltext?

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme