Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Dez 2007
Nimm doch die Format-Anweisung mal auseinander, dann kommst Du auf die Langform:
if CheckBox1.Checked then
s := 'Dokumentenanzeige Ein'
else
s := 'Dokumentenanzeige AUS';
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Dez 2007
Nein, ich meinte damit, dass Du 2 Blöcke hast, in denen Du in die Ini schreibst.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Dez 2007
Das hatte ich auch gesehen ;) . Und wie Progman schon sagt, hier liegt kein Schnee, dafür aber jede Menge Raureif.
@Sascha: Ich hasse es, wenn man dasselbe 2 mal schreibt und versuche immer, so etwas zu vermeiden, auch bei einer Fallunterscheidung. Da bietet sich ein konstantes Array eben an.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
21. Dez 2007
Versuch es mal so:procedure TForm5.CheckBox1Click(Sender: TObject);
const einaus: array of string = ('AUS','Ein');
Farben: array of TColor = (clRed,clLime);
begin
INIDocPfad:= Form1.Serverpfad + 'Einstellungen\DocSettings.ini';
Panel3.Color:= Farben;
with TMemIniFile.Create(INIDocPfad) do
try
WriteBool(DokumentEinstellung,Anzeigen1,CheckBox1.Checked); //...