Bonjour,
Je dois importer des données depuis un fichier excel ; nom, salaire, num de compte pour un éventuel virement de masse à la banque, jusque la tout marche bien, sauf que je suis obliger de suivre une logique de trame pour que ma banque valide mon fichier.
J'avoue que mon code delphi est abominable
Je cherche a améliorer mon code et surtout de respecter la limite de zone comme expliquer en fichier attacher; ( nom avec une longueur de 20 caractères sinon espace) par contre les chiffres a compléter par des zéros,voir fichier en attachement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 begin memo1.Lines.Add('10000000000000000000'+FormatDateTime('yyyymmddhhmmss', Date )+'EUR232'); try FDTable1.First; while not FDTable1.EOF do begin Memo1.Lines.Add('04020022022780780'+' '+'MAD2'+StringReplace(Format('%*.*f', [16, 2, StrToFloat(FDTable1.Fieldbyname('salaire').asString)]), ' ', '0',[rfReplaceAll])+' '+'00'+' '+'1STE'+' '+FDTable1.Fieldbyname('nom_prenom').asString+'022780' ); FDTable1.Next;
Bref je suis perdu la
Merci
Partager