Delphi : garder les données de ma fiche pour la prochaine exécution !

Marsh Posté le 19-06-2002 à 15:46:17

J'ai besoin d'une procédure, propriété, ou composant qui permet de sauveagrder ce qui est modifié par l'utilisateur dans les composants de la fiche pour la prochaine utilisation.
Par exemple garder un item dans une listbox !

merci beaucoup

Reply

Marsh Posté le 19-06-2002 à 15:46:17

Reply

Marsh Posté le 19-06-2002 à 15:51:55

yen a pleins regarde sur developpez.com ou sur la liste de lien Delphi dispo sur le forum

Reply

Marsh Posté le 19-06-2002 à 15:52:18

merci bcp
@+

Reply

Marsh Posté le 19-06-2002 à 15:56:57

si tu trouve su developpez.com tu peux me faire signe car je ne comprends à la facon dont on peut faire une recherche sur ce site, tu es donc forcément plus doué que moi pour ca !

merci bcp

Reply

Marsh Posté le 19-06-2002 à 15:59:30

c bon j'ai trouvé merci
désolé mais j'étais pressé !
merci

Message édité par gropoli le 19-06-2002 à 15:59:56

Reply

Marsh Posté le 19-06-2002 à 17:30:26

en fait celui que j'ai (c'est un composant) fonctionne mais pas dans mon application à moi !
qqun aurait-il un autre composant qui fait ca ou une autre idée ?!

merci

ps : celui que j'ai est un composant nommé SvgEditIni.pas

Reply

Marsh Posté le 19-06-2002 à 17:33:06

[:f1key] TIniFile
:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 19-06-2002 à 17:37:34

ouai ca à l'aire d'être ca ! comment je l'utilise dans mon code ?

Reply

Marsh Posté le 19-06-2002 à 17:50:12

exemple de lecture (Options est un TIniFile):

Code :

procedure TfrmThumbs.FormCreate(Sender: TObject);
var
S: String;
begin
AllowPreview := True;
Options := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Options.ini');
ImagesView.TitreColors[0] := $00CAEDED;
ImagesView.TitreColors[1] := $00DCDEE8;
ImagesView.TitreColors[2] := $00FFE3E3;
ImagesView.TitreColors[3] := $00DCEBDC;
if Options.SectionExists('Main') then
begin
with Options do
begin
Left := ReadInteger('Main', 'Left', 126);
Top := ReadInteger('Main', 'Top', 112);
Width := ReadInteger('Main', 'Width', 784);
Height := ReadInteger('Main', 'Height', 608);
Panel1.Height := ReadInteger('Main', 'SplitH', 217);
Panel2.Width := ReadInteger('Main', 'SplitV', 321);
if ReadBool('Main', 'FullScreen', False) then
WindowState := wsMaximized;
end;
S := Options.ReadString('Main', 'Path', '');
if S <> '' then DirList.Path := S;
end;
end;

Exemple d'écriture :

Code :

procedure TfrmOption.OkClick(Sender: TObject);
begin
with frmThumbs.Options do
begin
WriteInteger('Options', 'OutQ', OutQ.ItemIndex);
WriteInteger('Options', 'SavQ', SavQ.ItemIndex);
WriteString('Options', 'SavDir', SavDir.Text);
WriteInteger('Options', 'OutPriority', ThreadPriority.ItemIndex);
end;
end;

C morceaux de code sont tirés de thumbs http://www.z0rglub.com/phpwebgalle [...] b=download

:hello:

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Reply

Marsh Posté le 19-06-2002 à 17:56:56

tout ca tout ca ! ok merci bcp !
puisque tu dois probablement avoir compris comment ca fonctionne, aurais-tu le temps de me simplifier les choses (je manque bcp de temps, mon projet est pour bientot) en m'arrangeant ce code afin de sauvegarder uniquement les items d'un list box d'une fiche ?

ca serait vraiment très sympa de ta part ! :bounce:
si tu ne peux pas aucun pbm !

en tout cas merci !!!

Reply

Marsh Posté le 19-06-2002 à 17:56:56

Reply

Marsh Posté le 19-06-2002 à 19:38:12

gropoli a écrit a écrit :

tout ca tout ca ! ok merci bcp !
puisque tu dois probablement avoir compris comment ca fonctionne (tu crois ? ), aurais-tu le temps de me simplifier les choses (je manque bcp de temps, mon projet est pour bientot) en m'arrangeant ce code afin de sauvegarder uniquement les items d'un list box d'une fiche ?

ca serait vraiment très sympa de ta part ! :bounce: