procedure TForm1.Button1Click(Sender: TObject);var f:textfile;begin assignfile(f,'csv.csv'); append(f); writeln(f,''''+'420106188808084866'); {在串的前面加上单引号} closefile(f);end;
你把数字转成文本再输出就行了
