Discussion :

[cheidly]

Bonjour,

Quand je compile mon application, Free Pascal affiche cette erreur :

Error:Illegal Expression

Voici mon code :

Code :

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

1
2
3
4
 Procedure TForm1.Button2Clik(Sender:TObject);
 begin
      datafield1('noms').datasource:=edit1.text:=' ';
 end;

J'ai besoin de votre aide, svp, merci.

[Ph. B.]

Bonjour,
Le pascal n'accepte pas les affectations imbriquées.
De plus, je pense que vous avez fait un copier/coller de code sans trop réfléchir...

Ne connaissant pas le type des variables de votre code, je vous propose cette réécriture, mais il n'est pas sur qu'elle convienne voire qu'elle fasse ce que vous attendez d'elle...

Code :

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

1
2
3
4
5
6
7
Procedure TForm1.Button2Clik(Sender:TObject);
begin
  //datafield1('noms').datasource:=edit1.text:=' ';
  Datasource.DataSet.FieldByName('noms').AsString :=  Edit1.Text;
  // ou 
  Edit1.Text := Datasource.Dataset.FieldByName('noms').AsString;
end;

[Jon Shannow]

Je pense qu'une bonne (auto)formation, est plus que nécessaire.