Witam,
Na początek kod:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
s: string;
begin
ADOQuery1.Active := False;
ADOQuery1.SQL.Text := 'SELECT p1, p2, p2 FROM t FOR JSON AUTO, ROOT (''towary'');';
ADOQuery1.Active := True;
s := ADOQuery1.Fields[0].AsString;
AssignFile(f, 'result.json');
Rewrite(f);
Writeln(f, s);
CloseFile(f);
end;
Kod w sumie działa, ale do pliku zapisywane jest tylko 2035 bajtów. Co zrobić, żeby zapisane było wszystko??