Travailler avec des fichiers typés sous delphi 5
axeloflittoral
Messages postés
7
Date d'inscription
jeudi 25 septembre 2003
Statut
Membre
Dernière intervention
11 novembre 2009
-
28 févr. 2005 à 21:41
jmp77 Messages postés 1119 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 4 octobre 2006 - 1 mars 2005 à 10:39
jmp77 Messages postés 1119 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 4 octobre 2006 - 1 mars 2005 à 10:39
A voir également:
- Travailler avec des fichiers typés sous delphi 5
- Delphi format - Conseils pratiques -Delphi
- Delphi thread - Conseils pratiques -Delphi
- Delphi decompiler ✓ - Forum Delphi / Pascal
- Delphi stringreplace - Forum Delphi / Pascal
- Delphi formatdatetime ✓ - Forum Delphi / Pascal
1 réponse
jmp77
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
1 mars 2005 à 10:39
1 mars 2005 à 10:39
Hello,
Voici comment sauvegarder et puis lire ton fichier de sauvegarde de ton type TMonType :
{------------------------------------------------------------------------------}
{
Procedure pour sauvegarder le
type
}
{------------------------------------------------------------------------------}
procedure SaveType1;
var {Déclaration des variables locales}
F : File Of TMonType;
begin
AssignFile(F,'c:\temp\MonType.sav');
Try
{$I-}
Reset(F);
{$I+}
if IOResult <> 0 then Rewrite(F);
Seek(F,FileSize(F));
ReWrite(F);
Write(F,SaveData);
finally
CloseFile(F);
end;
end;
{------------------------------------------------------------------------------}
{
Procedure qui charge le
type
}
{------------------------------------------------------------------------------}
procedure LoadType1;
var {Déclaration des variables locales}
F : File Of TMonType;
begin
If not(FileExists('c:\temp\MonType.sav')) then
begin
{ - On affiche une message box qui lui signale l'incident}
ShowMessage('Le fichier de sauvegarde est introuvable' + #13#10 +
'Création d''un nouveau fichier de sauvegarde effectuée.');
{ - On crée une nouvelle sauvegarde}
AssignFile(F,'c:\temp\MonType.sav');
Try
ReWrite(F);
Write(F,SaveData);
finally
CloseFile(F);
end;
end;
AssignFile(F,'c:\temp\MonType.sav');
Try
{$I-}
Reset(F);
{$I+}
{$I-}
Seek(F,FileSize(f)-1);
{$I+}
If IOResult <> 0 then //erreur
begin
ReWrite(F);
Write(F,SaveData);
ShowMessage('Le format du fichier de sauvegarde est incorrect' + #13#10 +
'Création d''un fichier de sauvegarde correct effectuée.');
end;
Read(F,SaveData);
finally
CloseFile(F);
end;
end;
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.
Voici comment sauvegarder et puis lire ton fichier de sauvegarde de ton type TMonType :
{------------------------------------------------------------------------------}
{
Procedure pour sauvegarder le
type
}
{------------------------------------------------------------------------------}
procedure SaveType1;
var {Déclaration des variables locales}
F : File Of TMonType;
begin
AssignFile(F,'c:\temp\MonType.sav');
Try
{$I-}
Reset(F);
{$I+}
if IOResult <> 0 then Rewrite(F);
Seek(F,FileSize(F));
ReWrite(F);
Write(F,SaveData);
finally
CloseFile(F);
end;
end;
{------------------------------------------------------------------------------}
{
Procedure qui charge le
type
}
{------------------------------------------------------------------------------}
procedure LoadType1;
var {Déclaration des variables locales}
F : File Of TMonType;
begin
If not(FileExists('c:\temp\MonType.sav')) then
begin
{ - On affiche une message box qui lui signale l'incident}
ShowMessage('Le fichier de sauvegarde est introuvable' + #13#10 +
'Création d''un nouveau fichier de sauvegarde effectuée.');
{ - On crée une nouvelle sauvegarde}
AssignFile(F,'c:\temp\MonType.sav');
Try
ReWrite(F);
Write(F,SaveData);
finally
CloseFile(F);
end;
end;
AssignFile(F,'c:\temp\MonType.sav');
Try
{$I-}
Reset(F);
{$I+}
{$I-}
Seek(F,FileSize(f)-1);
{$I+}
If IOResult <> 0 then //erreur
begin
ReWrite(F);
Write(F,SaveData);
ShowMessage('Le format du fichier de sauvegarde est incorrect' + #13#10 +
'Création d''un fichier de sauvegarde correct effectuée.');
end;
Read(F,SaveData);
finally
CloseFile(F);
end;
end;
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.
