Message d'erreur E/S 32 lors d'un rewrite
Résolu
fiascoco
Messages postés
7
Date d'inscription
mardi 9 janvier 2007
Statut
Membre
Dernière intervention
13 mars 2007
-
12 janv. 2007 à 18:26
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 17 nov. 2010 à 23:49
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 17 nov. 2010 à 23:49
14 réponses
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
13 janv. 2007 à 04:44
13 janv. 2007 à 04:44
utilise les streams si ton fichier est assé gros (> 1Mo), sinon utilise un TStringList (< 1Mo).
de plus n'oublis pas le bloc Try Finally :
AssignFile(F, FileName);
Try
Reset(F); ou Rewrite(F);
....
Finally
CloseFile(F);
end;
avec les streams c'est assé simple :
var
TFS : TFileStream;
S : String;
P : PChar;
begin
TFS := TFileStream.Create(FileName, fmOpenRead);
Try
if TFS.Size <> 0 then begin
SetLength(S, TFS.Size);
P := PChar(S);
TFS.ReadBuffer(P^, TFS.Size);
end;
Finally
TFS.Free;
end;
if (Condition) then begin
TFS := TFileStream.Create(FileName, fmOpenWrite);
try
S := 'ouai '+S+' Ok';
P := PChar(S);
TFS.WriteBuffer(P^, Length(S));
finally
TFS.Free;
end;
end;
end;
et avec les StringList c'est encore plus simple :
var
TSL : TStringList;
S : string;
begin
TSL := TStringList.Create;
try
TSL.OpenFromFile(FileName);
if TSL.Count <> 0 then begin
S := TSL.Strings[0];
if (condition) then begin
TSL.Clear;
TSL.Add('ouai '+S+' Ok');
TSL.SaveToFile(FileName);
end;
end;
finally
TSL.Free;
end;
end;
de plus n'oublis pas le bloc Try Finally :
AssignFile(F, FileName);
Try
Reset(F); ou Rewrite(F);
....
Finally
CloseFile(F);
end;
avec les streams c'est assé simple :
var
TFS : TFileStream;
S : String;
P : PChar;
begin
TFS := TFileStream.Create(FileName, fmOpenRead);
Try
if TFS.Size <> 0 then begin
SetLength(S, TFS.Size);
P := PChar(S);
TFS.ReadBuffer(P^, TFS.Size);
end;
Finally
TFS.Free;
end;
if (Condition) then begin
TFS := TFileStream.Create(FileName, fmOpenWrite);
try
S := 'ouai '+S+' Ok';
P := PChar(S);
TFS.WriteBuffer(P^, Length(S));
finally
TFS.Free;
end;
end;
end;
et avec les StringList c'est encore plus simple :
var
TSL : TStringList;
S : string;
begin
TSL := TStringList.Create;
try
TSL.OpenFromFile(FileName);
if TSL.Count <> 0 then begin
S := TSL.Strings[0];
if (condition) then begin
TSL.Clear;
TSL.Add('ouai '+S+' Ok');
TSL.SaveToFile(FileName);
end;
end;
finally
TSL.Free;
end;
end;
