caricamento file di testo su n-tab in memo box runtime

[ffabio]

Ciao ragazzi, qualcuno sa come caricare a run time n file di testo in una cartella .

Non so quanti file sono quindi pensavo di creare a runtime sia il  tab che la memo con dentro il file di testo .

E qui sorgono i dubbi e i problemi ....

[xinyiman]

Ciao Fabio,  allora come prima cosa devi capire quali sono i file da leggere e tii consiglio di provare questo codice

http://www.lazaruspascal.it/index.php?page=35

che ti legge il contenuto di una directory, così leggi tutti i file presenti nella tua directory, poi solo allora puoi creare dei tab con dei memo

[ffabio]

ciao xinyiman si quello lo so sono tutti i file di testo che si chiamo pagina1.txt, pagina 2. txt ecc... fino a paginan.txt

Adesso do un occhio a quello che mi hai mandato grazie ...

[ffabio]

Ciao Ragazzi . con questo pulsante mi creo a runtime n tabsheet dove allonterno mi tovo dei campi memo dove carico tutti i miei file di testo.




procedure TForm1.Button4Click(Sender: TObject);
 var

  nome_file: string;
 begin
    k: integer;
  newtab: TTabSheet;
  newlabel: TMemo;
  n:integer; 


 for n:=1 to  n_file   do

 begin

  k := PageControl1.PageCount + 1;



  newtab := TTabSheet.Create (PageControl1);
  newtab.PageControl:= PageControl1;
  newtab.name:= 'scheda' + IntToStr (k);
  newtab.Caption:= 'Tab' + IntToStr (k);

  newlabel:= TMemo.Create(newtab);
  newlabel.name:= 'tablabel' + IntToStr (k);
  //newlabel.caption:= 'test';
  newlabel.left:= 20;
  newlabel.top:= 20;
  newlabel.Height:=180;
  newlabel.Width:=816;
  newlabel.ScrollBars:= ssAutoBoth;
  newlabel.visible:= true;
  newlabel.parent:= newtab;

  nome_file:= 'pagina_' + IntToStr(n) + '.txt';

  newlabel.lines.LoadFromFile(nome_file);
  newtab.Caption:= nome_file + newlabel.lines[5];
 end;
 end;


Vorrei adesso trascinare il testo contenuto nel campo memo delle sheet  in un altro campo memo che lo trasforma in un file in pdf .

Qualcuno ha qualche idea ?

[xinyiman]

Guarda se esistono gli eventi di drag and drop per l'oggetto che usi

[ffabio]

Il mio problema è creando a real time la tab  gli oggetti non so come fare il drug and drop di quella selezionata .

[xinyiman]

Devi assegnare alla creazione dell'oggetto stesso un evento che tu hai creato precedentemente. Ad esempio se crei un pulsante e vuoi assegnarli una procedura che tu hai precedentemente creato con il nome di MioEventoClick allora usi

button1.OnClick := @MioEventoClick;

[ffabio]

ciao xinyiman

ho baipassato il problema generando il pdf direttamente in fase di caricamento del testo senza dovermi creare l' evento draganddrop .

Ho agginto in fondo queste righe di codice

 frReport1.Clear;
  frReport1.LoadFromFile('rep.lrf');
  if frReport1.PrepareReport then
  FrReport1.ExportTo (TFrTNPDFExportFilter, agente);   

I nomi dei file me li genera correttamente ma il file ha sempre lo stesso contenuto.

Il report di lazreport si chiama rep.lrf al quale gli passo come variabile un campo memo.
Come se non ricaricasse il report con la nuova variabile che gli passo .

Idee?

[ffabio]

risolto non aggiornavo la variabile .