Spinedit [Résolu]

ced55957 110 Messages postés dimanche 2 mars 2003Date d'inscription 19 juin 2012 Dernière intervention - 5 janv. 2007 à 20:08 - Dernière réponse : bsybiz 1 Messages postés vendredi 3 février 2006Date d'inscription 23 avril 2007 Dernière intervention
- 23 avril 2007 à 23:59
bonsoir

voila je voudrais pouvoir enregistrer dans un fichier txt la valeur d'un spinedit, est ce que cela est possible ci oui avez vous une petite astuce ça serait cool?

merci d'avance
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Harvester_ 36 Messages postés vendredi 31 décembre 2004Date d'inscription 8 juillet 2007 Dernière intervention - 5 janv. 2007 à 21:43
3
Merci
Oups désolé

procedure TForm1.FormCreate(Sender: TObject);
var FichierTexte:TStrings;
begin
FichierTexte.Add(IntToStr(SpinEdit1.Value));
FichierTexte.SaveToFile('spinedit.txt');
end;

Merci Harvester_ 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de Harvester_
Harvester_ 36 Messages postés vendredi 31 décembre 2004Date d'inscription 8 juillet 2007 Dernière intervention - 5 janv. 2007 à 21:42
0
Merci
procedure TForm1.FormCreate(Sender: TObject);
var FichierTexte:TStrings;
begin
FichierTexte.Add(SpinEdit1.Value);
FichierTexte.SaveToFile('spinedit.txt');
end;
Commenter la réponse de Harvester_
japee 1799 Messages postés vendredi 27 décembre 2002Date d'inscription 19 juillet 2018 Dernière intervention - 5 janv. 2007 à 22:24
0
Merci
Salut,

Voici un exemple simple, qui permet d'enregistrer la valeur d'un SpinEdit dans un fichier :
- en remplacement de la précédente,
- en ajout,
- effacement des données.

Il faut placer sur la fiche 1 SpinEdit et 3 boutons.

var
  PathAppli: string;
  F: TextFile;

procedure TForm1.btnRemplaceClick(Sender: TObject);
begin
  AssignFile(F, 'spinedit.txt');
  Rewrite(F);
  Write(F, SpinEdit1.Value);
  CloseFile(F);
end;

procedure TForm1.btnAjouteClick(Sender: TObject);
begin
  AssignFile(F, 'spinedit.txt');
  Append(F);
  Write(F, IntToStr(SpinEdit1.Value) + #13#10);
  CloseFile(F);
end;

procedure TForm1.btnEffaceClick(Sender: TObject);
begin
  AssignFile(F, 'spinedit.txt');
  Rewrite(F);
  CloseFile(F);
end;

Bonne prog'
Commenter la réponse de japee
japee 1799 Messages postés vendredi 27 décembre 2002Date d'inscription 19 juillet 2018 Dernière intervention - 5 janv. 2007 à 22:25
0
Merci
Tu peux enlever la variable PathAppli...
Commenter la réponse de japee
japee 1799 Messages postés vendredi 27 décembre 2002Date d'inscription 19 juillet 2018 Dernière intervention - 6 janv. 2007 à 20:56
0
Merci
__________

Comme j'avais pas de méduse, j'ai mis une carpe.
Je la trouve très jolie.

Carpe diem
Commenter la réponse de japee
bsybiz 1 Messages postés vendredi 3 février 2006Date d'inscription 23 avril 2007 Dernière intervention - 23 avril 2007 à 23:59
0
Merci
Lors de l'installation du composant SpinEdit jereçois un message me disant soit que le package concerné est déjà installé,soit que je cite " le Handle est incorrect".
merci de votre aide.
Commenter la réponse de bsybiz

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.