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

Recherche :

Dernière réponse
Sujet : Delphi : garder les données de ma fiche pour la prochaine exécution !
gropoli	ouai bon ok je vais faire une effort supplémentaire alors ! ;) merci beaucoup ! :hello:

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

gropoli

ouai bon ok je vais faire une effort supplémentaire alors ! ;)

merci beaucoup ! :hello:

[SDF]Poire

gropoli a écrit a écrit :

tout ca tout ca ! ok merci bcp !
puisque tu dois probablement avoir compris comment ca fonctionne (tu crois ? :pt1cable: ), 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 !!! :)

Euh.... C moi qui vais avoir la note à la fin ?
Fo pas déconner en 10mn avec l'exemple et l'aide c torché...

gropoli

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 !!! :)

[SDF]Poire

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:

gropoli

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

[SDF]Poire

[:f1key] TIniFile [:f1key]
:hello:

gropoli

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

gropoli

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

gropoli

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

gropoli

merci bcp
@+

Je@nb

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

gropoli

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