Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club
    [dBase] Copie du memo d'une table vers le memo d'une autre table
    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

  2. #2
    Membre éclairé
    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

  3. #3
    Modérateur

    DestMemo.Append(SourceMemo.Text); ?
    Delphi 5 Pro - Delphi 10.3.2 Rio Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  4. #4
    Membre du Club
    Certaines fois on a de la m...e dans les yeux
    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.