Discussion :

[marie253]

bonjour

j'ai une procedure qui récupère dans un fichier certaines infos.

en gros, j'ai ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
F : TextFile;
...
 
AssignFile(F, fileName);
 
TesteurV2.LireLeFichier(self, F); // j'appelle ma procedure qui extrait les points, je lui passe une liste et TextFile

maintenant, le changement c'est que les points que je veux ne sont plus dans des fichiers, mais ces fichiers sont stockés dans une base (DBMemo), donc la procedure de lecture va tjrs marcher puisque même structure, mais ce que je sais pas faire c'est comment passer directement le champ de ma base en paramètre. (c'est un peu flou pour l'instant, je cherche une méthode)
ou alors est-ce qu'il faut forcément passer par un memo intermédaire (requete qui le rempli etc) ??? mais ça fait des trucs en plus

[cmen76]

oui c'est possible
rien ne t'empêche d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure LireLeMemo(uneListe : TList; unChampMemo : TMemoField);

[marie253]

.... je vais regarder cet aprèm merci

[marie253]

oui c'est possible
rien ne t'empêche d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure LireLeMemo(uneListe : TList; unChampMemo : TMemoField);

euh non en fait, ce que je vuolais c'est que ce champ arrive directement de la base. Là il faut qd même que je le stocke dans un memo temporaire via une requete (je précise que les champs de la base ne sont pas affichés sur le formulaire utilisé ici)
ou alors j'ai pas compris ??

en fait c'est le résultat de la requête qu'il faudrait alors que je passe en paramètre sans memo intermédiaire . mais ça ne doit pas etre possible car après ma fonction ne pourra pas lire ds un résultat de requete

[marie253]

(...) je crois que j'ai écrit n'importe quoi
je change :

voilà ce que je voudrais
garder mes procédures de lecture mais maintenant au lieu de passer un fichier en paramètre, je passe un texte (même chose non ?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var req : text;
....etc
 
//la requete marche, je l'ai testée
With formbddsql.ADOQuery1 Do
  Begin
    SQL.Clear;
    SQL.Add('SELECT Pin_Essai.piness_ficbrut ');
    SQL.Add('FROM Pin_Essai  ');
    SQL.Add('WHERE ...);
    formbddsql.Adoquery1.open;
 
    req := formbddsql.adoquery1.FieldValues['piness_ficbrut'];
  End;
 
//   testeurv2.LireLeFichier(self, F); avant F déclaré en TextFile
   testeurv2.LireLeFichier(self, req);

j'ai une erreur sur la ligne req := ... ([Erreur] classDef.pas(241): Opérateur non applicable à ce type d'opérande) pkoi??
erreur qui n'est plus si je déclare req en string mais du coup je ne peux plus appler ma procedure LireLeFichier
donc pkoi je ne peux pas mettre req en text ?

[cmen76]

var req : text

Il n'y a aucun rapport entre un fichier texte et un mémo.
Je te suggère de revoir ton appel de procédure, parce que tu ne pourras pas lui transmettre un fichier texte ;
Transforme le paramètre en TStringList ; ainsi dans le cas d'un fichier, il suffira de faire maStringList.LoadFormFile(filename), et pour un TMemoField, il suffira de lui passer LeMemoField.Lines

[marie253]

bonjour et merci pour tes explications
hélas pour moi je ne connais pas très bien delphi et delphi ne comprend pas tjrs ce que je veux faire
voilà je n'arrive pas à mettre le résultat de la requête dans autre variable que string ...
mais une chose bien c'est que mes fichiers sont un peu longs mais ils y tiennent.
maintenant le pb c'est que mes procedures étaient faites pour des fichiers (avec des readln etc...)
tant pis
et avec String je ne peux pas faire des choses du genre Req.lines[i] ...
ce dont j'ai besoin
tant pis je déclare Req en String et puis je la remets ds un memo que je passe en param
et là c'est bon, je dois juste réadapter un peu ma procedure de lecture
ça doit être ça qu'on appelle de la "bidouille" mais ça marche
merci d'avoir essayer de comprendre mon charabia