Zusammenfassung

• Seiteneigenschaften (1 geändert, 0 hinzugefügt, 0 gelöscht)

Details

Seiteneigenschaften

Inhalt

...	...	@@ -368,4 +368,52 @@
368	368
369	369	Die Daten des aktuell markierten Clients werden nun angezeigt. Die Funktion der Form soll jetzt um die Möglichkeit erweitert werden, die Daten eines Clients in einer Datei speichern zu können. Dazu platzieren Sie einen Button auf der Form und weisen ihm über den Object Inspector z.B. die Caption (Überschrift) In Datei speichern zu. Anschließend erstellen Sie über den Tab Events eine neue Funktion indem Sie einen Doppelklick in das leere Feld neben dem Event OnClick ausführen.
370	370
371		-
	371	+{{figure}}
	372	+(% style="text-align:center" %)
	373	+[[image:hmfile_hash_009b2bf0.png]]
	374	+
	375	+{{figureCaption}}
	376	+Vervollständigen der Form
	377	+{{/figureCaption}}
	378	+{{/figure}}
	379	+
	380	+Da der Benutzer später die Möglichkeit haben soll, die angezeigten Daten in einer beliebigen Datei speichern zu können, wird ein entsprechender (Standard-)Dialog benötigt, welcher eine Dateiauswahl zulässt. Um diesen zu erstellen, wechseln Sie von dem Code- zum Design-Tab und positionieren die Komponente TSaveDialog aus der Werkzeugpalette (unter Dialogs) auf der Form. Über den Object Inspector können Sie die z.B. die DefaultExt (Dateierweiterung) auf .txt und den Filter auf Text file (*.txt) | *.txt setzen. Die Komponente ist bei der Ausführung der Form allerdings nicht zu sehen.
	381	+
	382	+Wechseln Sie nun wieder zur Quellcode-Ansicht in die Funktion Button1Click. Dort deklarieren Sie die TStringList-Variable data. Anschließend wird eine Sicherheitsabfrage eingebaut, welche kontrolliert, ob überhaupt ein Client in der ListBox markiert ist. Ist dies nicht der Fall, wird das Speichern über exit abgebrochen.
	383	+
	384	+Dem TSaveDialog wird nun ein Dateiname zugewiesen. Dazu wird die markierte Clientname aus der ListBox ausgelesen, wie es bereits in der Funktion FormActivate geschieht. Anschließend wird der TSaveDialog in einer if-Abfrage ausgeführt. Dadurch öffnet sich der Standarddialog zum Speichern einer Datei. Als Dateiname ist bereits der eben zugewiesene Clientname als Vorschlag eingetragen. Wird der Dialog abgebrochen, wird ein Informationsdialog ausgegeben, dass das Speichern fehlgeschlagen ist.
	385	+
	386	+Wird der Dialog bestätigt, wird in einem try/finally-Block die Variable data zunächst initialisiert und über die add()-Funktion mit den Daten aus den Edit-Feldern sowie dem Clientname aus der ListBox gefüllt. Anschließend wird die Methode SaveToFile aufgerufen, wodurch der Dateiinhalt in der ausgewählten Datei gespeichert wird. SaveDialog1.FileName beinhaltet dabei den ausgewählten Dateinamen.
	387	+
	388	+Nach der Speicherung werden die Ressourcen der Variable data freigegeben. Die Form ist nun fertig und besitzt die verlangten Funktionen.
	389	+
	390	+{{code language="None"}}
	391	+procedure Button1Click(Sender: TObject);
	392	+var
	393	+ data : TStringList;
	394	+begin
	395	+ if ListBox1.ItemIndex < 0 then
	396	+ exit;
	397	+ SaveDialog1.FileName := ListBox1.items.strings[ListBox1.ItemIndex] + '.txt';
	398	+ if SaveDialog1.Execute(null) then
	399	+ begin
	400	+ try
	401	+ data := TStringList.Create();
	402	+ data.Add('Client = ' + ListBox1.items.strings[ListBox1.ItemIndex]);
	403	+ data.Add('Domain = ' + EditDomain.Text);
	404	+ data.Add('Beschreibung = ' + EditBeschreibung.Text);
	405	+ data.Add('IP Adresse = ' + EditIP.Text);
	406	+ data.Add('MAC Adresse = ' + EditMAC.Text);
	407	+ data.Add('Betriebssystem = ' + EditOS.Text);
	408	+ data.Add('Version = ' + EditVersion.Text);
	409	+ data.Add('ServicePack = ' + EditSP.Text);
	410	+ data.SaveToFile(SaveDialog1.FileName);
	411	+ finally
	412	+ data.Free;
	413	+ ShowMessage('Daten wurden gespeichert in: ' + SaveDialog1.FileName);
	414	+ end;
	415	+ end;
	416	+ else
	417	+ ShowMessage('Speichern abgebrochen.');
	418	+end;
	419	+{{/code}}