Créer en lecture et en écriture fichier texte avec kylix

Creer en lecture et en ecriture fichier texte avec kylix

Creer en lecture et en ecriture fichier texte avec kylix : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet Article est pour les debutants a intermediaires developpeur qui veut lire / ecrire / imprimer et effacer le fichier texte. Esperons qu'il sera utile pour de nombreux developpeurs .

Creer , Lire , Ecrire ,Imprimer , Effacer
les Fichiers de Texte Avec KYLIX

Par Rahul Tamrakar

Cet Article est pour les debutants a intermediaires developpeur qui veut lire / ecrire / imprimer et effacer le fichier texte. Esperons qu'il sera utile pour de nombreux developpeurs .
Maintenant , je vais vous montrer les commandes de base pour la lecture et l'ecriture . Il est tres tres simple.
e/S Generale des Routines
AssignFileAssigns le nom d'un fichier externe dans un fichier variable.
afin de commencer a travailler avec des fichiers texte a partir de KYLIX nous avons de lier un fichier sur un disque vers un fichier de variable dans notre programme. Pour creer ce lien, nous devons d'abord declarer une variable de type fichier Texte, puis utiliser AssignFile procedure pour associer un fichier sur un disque avec un fichier variable. A moins que le fichier nomme FileName est dans le repertoire courant, nous devons fournir le chemin d'acces complet .
ResetOpens un fichier existant (pour la lecture)
Pour lire des informations a partir d'un fichier ligne par ligne, nous devons ouvrir le fichier pour l'entree a l'aide de la procedure de Reinitialisation. La Reinitialisation ouvre le fichier existant avec le nom attribue au fichier de Texte variable. Il en resulte une erreur si aucun fichier externe du nom donne existe.
RewriteCreates et ouvre un nouveau fichier (ou de ouvre et efface un fichier existant!)
Reecriture cree un nouveau fichier (le fichier s'ouvre pour la sortie) avec le nom attribue a OpenFile. Si un fichier avec le meme nom existe deja, il est supprime et un nouveau fichier vide est cree a sa place. Si SomeTextFile est deja ouvert, il est d'abord ferme, puis re-cree. La position courante dans le fichier est definie au debut du fichier vide.
WriteLnWrite ligne dans le fichier texte .
La WriteLn commande est d'envoyer des informations a un fichier
ReadLnRead ligne du fichier texte .
ReadLn pour lire des informations ligne par ligne a partir d'un fichier.
EofReturns la fin-de-fichier d'etat. (Vrai implique a la fin du fichier)
Eof est le EndOfFile fonction de verification. Nous pouvons utiliser cette fonction pour vous assurer que nous ne sommes pas en train de lire au-dela de la fin du fichier
OpenFile.EOF
CloseFileCloses ouvrir un fichier.
fermer pour Fermer le lien de OpenFile.
AssignPrnAssigns fichier a l'Imprimante

EraseErases un fichier externe.



Tous ces routines sont dans l'unite SysUtils a l'exception de 'Assignprn' pour ce u-etre ajouter 'QPrinters' l'unite dans la section de l'unite.


Pourquoi j'ai choisi le TMEMO avec FICHIER TEXTE
Les exemples suivants montrent comment enregistrer et charger un TMemo a partir d'un fichier 'a la dure'.
Vous pouvez bien sûr utiliser les SaveToFile et LoadFromFile methodes de TStrings, mais alors vous ne serait pas a apprendre a propos de fichier texte I/O ! et de nombreux programmeurs ont surtout 2 probleme
1How pour imprimer TMEMO de contenu et de les Enregistrer dans des FICHIERS TEXTE...
2.Comment JOUER AVEC un FICHIER TEXTE dans KYLIX.

De cette façon, u apprendrez ......
1.Comment Enregistrer / Retrive TMEMO contenu dans un FICHIER TEXTE.
2.Comment imprimer TMEMO contenu par le biais du Programme.
3.comment Creer / Ecrire / Lire /Imprimer et Effacer des FICHIERS TEXTE.


1.Creation et Redaction de Contenu dans un Fichier Texte

Assure que OutFile sera toujours ferme, meme si une exception est levee lors de l'ecriture du fichier.

{ SaveToFile:
& nbsp & nbsp Cette procedure permet de sauver le contenu d'une note a un fichier Chemin d'acces et le Nom de
}
procedure SaveToFile(MemoName : TMemo FileName : string)
var
& nbsp & nbsp OpenFile : TextFile { Le fichier texte }
& nbsp & nbsp Compteur : integer { compteur de Boucle }
begin
& nbsp & nbsp AssignFile(OpenFile, FileName) { Associer OpenFile avec le Chemin du Fichier et le nom }
& nbsp & nbsp Reecriture(OpenFile) { Ouvert }
& nbsp & nbsp essayer
& ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & nbsp for Compteur := 0 pour MemoName.Les lignes.Count - 1 do
& ! & ! & ! & ! & ! & ! & ! & nbsp Writeln(OpenFile, Memoname.Les lignes[Compteur])
& ! & ! & ! & ! & ! & ! & nbsp application.MessageBox('Memo pour les Sauvegarder dans un Fichier Texte' nom de fichier )
& ! & ! & ! & nbsp sauf sur E:EInOutError ne
& ! & ! & ! & ! & ! & nbsp MessageDlg('Enregistrer abandonnee avec l'erreur:' IntToStr(E. ErrorCode)
& ! & ! & ! & ! & ! & ! & nbsp , mtError, [bakang], 0)
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp CloseFile(OpenFile)
& nbsp & nbsp fin
fin

L'exemple ci-dessus montre comment attraper un fichier I/O d'exception et d'en extraire le code d'erreur. Notez qu'il est conseille de garder l'exterieur essayez-enfin bloquer en cas de non I/O exception est levee.

2.La lecture du Contenu du Fichier Texte

{ ReadFromFile:
& nbsp & nbsp Cette procedure de lire le contenu d'un fichier donne Nom de Chemin d'acces
}
procedure ReadFromFile(MemoName : TMemo FileName : string)
var
& nbsp & nbsp OpenFile : TextFile { Le fichier texte }
& nbsp & nbsp Ligne : string { lecture }
begin
& nbsp & nbsp MemoName.Les lignes.Claire { Vide le memo }
& nbsp & nbsp AssignFile(OpenFile, FileName) { Associer OpenFile avec un nom de fichier }
& nbsp & nbsp Reset(OpenFile) { Ouvrir sans casser }
& nbsp & nbsp essayer
& ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp alors que non Eof(OpenFile) ne
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Readln(OpenFile,Ligne)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp MemoName.Les lignes.Add(Ligne)
& ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp sauf sur E:EInOutError ne
& ! & ! & ! & ! & ! & nbsp MessageDlg('ne Peut Pas Lire d'erreur:' IntToStr(E. ErrorCode)
& ! & ! & ! & ! & ! & ! & nbsp , mtError, [bakang], 0)
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp CloseFile(openFile)
& nbsp & nbsp fin
fin

Enfin, cet exemple montre comment inverser le processus de lecture de texte a partir d'un fichier. Notez que Readln copies tout le texte, mais pas y compris le marqueur de fin de ligne dans la chaîne donnee. Ensuite, il ignore le marqueur de fin de ligne a la ligne suivante si il y en a un. Si il n'y a pas de ligne suivante puis EOF devient Vrai.
3.L'impression avec le Fichier Texte
Un avantage de Object Pascal fichiers de texte que je n'ai pas encore parle, c'est qu'ils peuvent etre utilises pour envoyer des donnees directement vers les peripheriques. Cet exemple montre comment vous pouvez envoyer des sms directement a l'imprimante.
{ PrintMemo:
& nbsp & nbsp Cette procedure de lire le contenu du Memo et de l'imprimer
}
procedure PrintMemo(MemoName : TMemo FileName : string)
var
& nbsp & nbsp OpenFile : TextFile { Le fichier texte}
& nbsp & nbsp Compteur : integer { compteur de Boucle }
begin
& nbsp & nbsp AssignPrn(OpenFile) {unite QPrinters Attribuer texte fichier PRN }
& nbsp & nbsp Reecriture(OpenFile) { Ouvert }
& nbsp & nbsp essayer
& ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp for Compteur := 0 pour MemoName.Les lignes.Count - 1 do
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Writeln(OpenFile,MemoName.Les lignes[Compteur])
& ! & ! & ! & nbsp sauf sur E:EInOutError ne
& ! & ! & ! & ! & ! & nbsp MessageDlg('ne Peut Pas Imprimer erreur:' IntToStr(E. ErrorCode)
& ! & ! & ! & ! & ! & ! & nbsp , mtError, [bakang], 0)
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp CloseFile(OpenFile)
& nbsp & nbsp fin
fin
Notez que dans ce cas, je suis en utilisant AssignPrn plutot que AssignFile. Ayant fait cela, vous pouvez simplement ecrire a l'imprimante comme si c'etait 'normal' fichier texte.
4.Effacer le Fichier Texte
procedure EraseFile(FileName : string)
var
& nbsp & nbsp OpenFile : TextFile { Le fichier texte}
begin
& nbsp if FileExists(nom de fichier )
& nbsp & nbsp commencer
& ! & ! & ! & nbsp AssignFile(OpenFile, FileName) { Associer OpenFile avec un nom de fichier }
& ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & nbsp Reset(OpenFile) { Ouvrir sans casser }
& ! & ! & ! & ! & ! & nbsp CloseFile(openfile)
& ! & ! & ! & ! & ! & nbsp Effacer(Openfile)
& ! & ! & ! & ! & ! & nbsp application.MessageBox(FileName ' ! SUPPRIMER')
& ! & ! & ! & nbsp sauf sur E:EInOutError ne
& ! & ! & ! & ! & ! & nbsp MessageDlg('ne Peut Pas EFFACER erreur:' IntToStr(E. ErrorCode)
& ! & ! & ! & ! & ! & ! & nbsp , mtError, [bakang], 0)
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin
& nbsp else
& ! & ! & ! & ! & ! & ! & nbsp application.MessageBox ('ERREUR ! 'Nom de fichier' ! Non Trouve')
fin

5.Comment obtenir le Chemin de l'Application
{ FilePathName:
& nbsp & nbsp Cette Fonction retourne le chemin de l'Application avec un nom de fichier texte
}
fonction de FilePathName : string
var
Fpath,Pnom : string
begin
{ExtractFilePath (), il sera de retour le CHEMIN de l'APPLICATION }
Fpath:=ExtractFilePath(application.ExeName)
Fname :='MyFile.txt'
FilePathName:=Fpath Fname
fin

bonne Programmation

KYLIX_TEXTFILE.RTF