Discussion :

[chasseur37]

Bonjour

je travaille avec Delphi7 et sous paradox et j'aimerai mettre dans un champs alphanumérique d'une table paradox, la premiere ligne d'un champs memo d'une autre table paradox.

Je ne vois pas comment on peut lire une seule ligne d'un champs memo, sachant que celui-ci en a plusieurs.

Si quelqu'un peut m'orienter.

Merci d'avance

[anapurna]

salut

un truc du genre

Code :

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

memo.line[0]

@+ Phil

[ero-sennin]

Salut,

salut

un truc du genre

Code :

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

memo.line[0]

@+ Phil

J'apporte mon grain de sel :

Code :

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

Memo1.Lines[0];[

Il manquait un 's' à Line ...
A+

[chasseur37]

ok, cela marchera si je créer un composant memo dans ma fenetre

mais le but était de faire :

Code :

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

1
2
 
dm.Table1.FieldByName('Destinataire').AsString:=DM1.Table2.FieldByName('Destinataire').AsString

En ne récuperant dans le champs Destinataire de la table2 que la premiere ligne du memo car dans paradox le champs Destinataire est bien un champs memo

j'espère me faire comprendre.

Merci

[anapurna]

salut

tu veut dire que c'est un champs blob
il faut passer par un stream intermediaire

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
 
 Function donneFirstlgblob(Atbl : TTable;FieldName : String) : String;
var
   var BlobStream:TMemoryStream;
   StrList :TStringList;
begin 
  Result := '';
  StrList := TStringList.create;
 try
 BlobStream := Atbl.CreateBlobStream(Atbl.FieldByName(FieldName),bmRead);
 StrList.Lines.LoadFromStream(BlobStream);
  Result :=  StrList.Lines[0];
finaly
  BlobStream.free; 
  StrList.free
end;

@+ Phil

[chasseur37]

ok merci ca marche

j'ai du modifier quelques trucs alors je rajoute ma solution :

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
18
19
20
 
interface
uses 
  DBTables, DB;
 
Function donneFirstlgblob(Atbl : TTable;FieldName : String) : String;
var
   var BlobStream:TStream;
   StrList :TStringList;
begin 
  Result := '';
  StrList := TStringList.create;
 try
 BlobStream := Atbl.CreateBlobStream(Atbl.FieldByName(FieldName),bmRead);
 StrList.LoadFromStream(BlobStream);
  Result :=  StrList.Strings[0];
finaly
  BlobStream.free; 
  StrList.free
end;