spinedit

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

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

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'

Tu peux enlever la variable PathAppli...

__________

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

---

Carpe diem

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.