Re: Speichern - ein großes Problem
Kommt ganz drauf an wie du das speichern der Daten aktuell machst.
Gibt da so viele Möglichkeiten... in meinem Beispiel ists über ne Klasse TSchüler und eine TObjectList (SchülerList) gemacht. Geht aber auch über ein dynamisches Array und ein Record. |
Re: Speichern - ein großes Problem
Derzeit ist es noch gar nicht realisiert da ich nicht weiß wie ich alles unter einen hut bekomme wie ich es oben schon geschrieben habe! abe rdas mi dem xml-dateien scheint mir eine sehr gute lösung zu sein!
Deshalb frage ich lieber euch weil ich wusste nciht wie ich das hätte machen sollen! datenbanken dürfen wir nicht nehmen das ist das problem dabei sonst wäre das so denke ich mal nen kleineres problem da ich öfters mit datenbanken arbeite udn mit xml habe ich mich bisher noch nicht befasst! |
Re: Speichern - ein großes Problem
Hi kleine verbesserung für dein Projekt ich würde alles mit einer oder mehrere datenbanken machen wärst viel flexieble.
Für deine bilder laden würde ich dann den index des Namen in eine Variable stecken und würde das Bild mit der Variable laden habe schonmal so was ähnliches gemacht
Delphi-Quellcode:
Habe es über den namen der Listbox gemacht wie man sehen kann das könntest du auf deine bedürfnisse anpassen
procedure TForm8.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); begin blauezelle; if Listbox1.ItemIndex > -1 then begin ListBox1.ItemIndex; //Markierte Spalte finden Lb:= ListBox1.Items[ListBox1.ItemIndex]; //makierung übergeben in Lb Label14.Caption:= 'VERTRETUNGSPLAN für Koll. '+ Lb; if not FileExists (ExtractFilePath(ParamStr(0))+'lehrer\'+Lb+'.jpg') then begin GridLade; // StringGrid laden MemoLade; // Meomos und Labels laden Image1.Visible:= False; Label6.Visible:= False; end else begin GridLade; // StringGrid laden MemoLade; // Meomos und Labels laden Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'lehrer\'+Lb+'.jpg') ; Image1.Visible:= True; Label6.Visible:= True; if Panel14.Visible = True then begin Label6.Caption := 'Bild des Lehrers '+ LB; end else begin Label6.Visible:= False; end; end; end else begin // nichts drin nur zur fehler vermeidung end; end; Gruss sascha |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:57 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz