salut,


je viens de passer un sacré bout de temps sur la comprehension ainsi que des tests sur la facon de lire un fichier mais je coince pour recuperer le contenu du fichier
c'est enervant .... je precise que je n'ai aucune erreur lors de la compilation.


j'utilise un compo TOpenDialog pour recuperer le nom d'un fichier, ensuite je compte inserer/afficher le contenu du fichier dans un compo TRichEdit

txSource -> le compo TRichEdit

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.Button1Click(Sender: TObject);
var caPtFichier:Cardinal;
var caTailleFichier:Cardinal;
var buffer:String;// c'est bon ca ?
begin
	if OpenDialog1.Execute()then
		begin
		caPtFichier := fileOpen(OpenDialog1.FileName, fmOpenRead);
		caTailleFichier := fileRead(caPtFichier,buffer,50000);
		showMessage(IntToStr(caTailleFichier));
		showMessage(buffer);
		txSource.Text := 'xxx '+buffer+' xxx';
		FileClose(caPtFichier);
		end
	else
		begin
		txSource.Text := '';// que faire d'autre ?
		end;
end;
rien a faire, la variable buffer reste deseperement vide, evidemment l'aide de delphi est tellement bien faite qu'il n'y a pas la moindre infos la dessus
j'ai aussi essayé les routines E/S mais la c'est encore pire



quelqu'un a une idée sur la facon de recuperer le contenue du fichier avec fileRead et la variable 'buffer' ?

merci