[Débutant] Comment écrire et lire dans un fichier

**jeanver** · 13/02/2007, 23h01

Bonjours a tous

voila je vien de lir la FAQ surtout la partie Fichier.
j'arrive a créer un fichier (.txt par exemple) mais je n'arrive pas a écrire dedan et encore moins a lire dedan.

J'aimerais comprendre comment faire pour y enregistrer mes variables ?
et surtout comment faire pour les récuperer ?

est ce que je peut créer ma propre extention (.oGa par exemple) que je peut exploiter ?

merci a ceux qui répondrons a cette question de base.

**jeanver** · 13/02/2007, 23h11

j'ai vu qu'on pouvais utiliser la fonction Stream mais je n'ai pas compris (oui je sait j'ai pas compris grand chose) comment elle marche

**Archibald29** · 14/02/2007, 00h24

Bonjour,

C'est déjà un bon point d'avoir pu créer un .txt !!!
Il existe sur le site toutes sortes de ressources mais je te propose celle là
http://delphi.developpez.com/cours/
qui contient un tutorial sur les streams par jca.

Bon courage

**etnoig** · 14/02/2007, 09h48

un PDF tres bien expliquer sur les streams qui permet d'ecrire et de lire dans un fichier :
http://www.unvrai.com/fichiers/stream/StreamsDelphi.pdf

Quand a savoir si tu peut creer ta propre extension je n'ai ai aucune idee

bonne continuation

**kkhaled** · 14/02/2007, 15h12

tu peut utiliser un tableau et un TFileStram
je peut te donner un simple exemple :
pour enregistrer le tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var tb : array[1..25] of integer;
    st : TFileStream;
    i : integer;
begin
for i := 1 to 25 do tb[i] := i;
st := TFileStream.Create('c:\monfichier.x',fmCreate);
st.Write(tb,length(tb));
st.Free;
end;

Pour Charger le Tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var tb : array[1..25] of integer;
    st : TFileStream;
    i : integer;
begin
st := TFileStream.Create('c:\monfichier.x',fmOpenRead    );
st.Read(tb,25);
listbox1.Items.Clear;
for i := 1 to 25 do listbox1.Items.Add(inttostr(i));
end;