Discussion :

[weberick]

Bonjour

Je tourne en rond depuis quelques heures pour trouver le moyen de copier le contenu d'un mémo vers un autre mémo.
Contenu memo1 : texte temporaire
contenu memo2 : texte définitif
Le texte du memo1 s'ajoute au texte du memo2
Le tout est déclenché par un bouton.
Certains me diront d'aller vois sur google ce que j'ai fait mais rien de probant ou j'ai mal cherché.
Je suis à 95 % de la réalisation d'un programme de gestion de classe plan de classe remarques aux élèves etc etc etc. à ce sujet je cherche aussi une plateforme ou mettre ce prog à tester

D'avance merci de vos conseils mais là je me retrouve bloqué par un problème apparemment mineur


Pour Info
Lazarus 2.0.2 fpc 3.0.4.1 dev réalisé sous Linux et W10

[ChPr]

Peut-être ça :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to Memo1.Lines.Count-1 do
    Memo2.Lines.Add(Memo1.Lines[i]);
end;

Cordialement.

Pierre

[tourlourou]

DestMemo.Append(SourceMemo.Text); ?

[weberick]

Que pensez vous de ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  /// copie du memo ligne vers memo élèves
  Db_eleves.Edit;
  Db_eleves.FieldByName('REMARQUES').AsString:=
  Db_eleves.FieldByName('REMARQUES').AsString + #13 +  Db_lignes_session.FieldByName('REMARQUES').AsString;
  Db_eleves.Post;
  // Effacement du memo ligne
  Db_lignes_session.edit;
  Db_lignes_session.FieldByName('REMARQUES').AsString:='';
  Db_lignes_session.Post;

Et ça fonctionne comme je le souhaite, ensuite est-ce vraiment la bonne manière ?

Par contre problème étrange : quand je clique dans le tDBMemo et que je tape par exemple 'Test' le résultat sera 'eTst'.
Après des tests sur l'évènement onclick de mon tDBMemo j'ajoute Db_ligne_session.edit.
De cette manière le problème est résolu et comme j'effectue le post lors du changement d'onglet... pas de souci.

Merci de vos conseils en fait me suis fait une montagne de pas grand chose.