Buongiorno. Dovrei scrivere in un file di testo tutti i campi memo di una tabella, ho scritto il seguente codice ma mi memorizza solo il primo recordprocedure TMainForm.BitBtn4Click(Sender: TObject);
Var
F : TextFile;
linea : string;
begin
AssignFile(F, '/home/antonio/PRG/LazarusPRG/GeditorHTML/prov.html');
Rewrite(F);
cga.First;
while not cga.eof do
begin
Append(F);
linea:= cgatestoarti.Text;
Writeln(F, linea);
cga.Next;
end;
CloseFile(F);
end;
ho risolto assegnando il nome del file ad una variabile
procedure TMainForm.BitBtn4Click(Sender: TObject);
Var
F : TextFile;
linea, nomef : string;
begin
nomef:=Application.Location+'/prov.html';
AssignFile(F, nomef);
Rewrite(F);
cga.First;
while not cga.eof do
begin
// ShowMessage('numero :'+inttostr(cganumcap.value));
linea:= cgatestoarti.asString;
Writeln(F, linea);
cga.Next;
end;
CloseFile(F);
end;
e vengono scritti tutti i campi memo della tabella nel file.