Probleme enregisteremnt base de donnée dans bloc note

nassim00b - Modifié par nassim00b le 17/12/2015 à 08:46
MiniApp Messages postés 654 Date d'inscription lundi 21 juillet 2014 Statut Membre Dernière intervention 22 février 2019 - 20 déc. 2015 à 20:30
Bonjour,
j'ai crée une base de donnée sous delphi
c'est a dire 2 tables
je l'ai ai exportées sous format txt
:
etoile 8caracteres 12 C(Longueur) 13 C 7C
  • 00000000 000030002765 2531251400154 0000018 14C Blancs 122015 0

je voulais qu'il m'affiche comme suit
  • 0000000000003000276525312514001540000018 14Caracterses Blancs 1220150

svp
le code source au une requete appropriée
merci d'avance

1 réponse

MiniApp Messages postés 654 Date d'inscription lundi 21 juillet 2014 Statut Membre Dernière intervention 22 février 2019 5
20 déc. 2015 à 20:30
Bonjour

Tu peut essayer en supprimant les espaces ?

//Fais a la va vite non tester
var
A:integer;
Str:string;
begin
A:=0;
while A<Length(Str) do
  if Str[A+1]=' 'then
    Delete(Str,A,1)
  else Inc(A);

0
Rejoignez-nous