Merhaba; 


Tarihe ve saate göre rastgele 13 basamaklı sayı  üretiyorum ve bu sayıları databasede string olarak tutuyorum, kullanıcı excele aktardığında sayılar (1,23468E+12) gibi garip bir şekilde excelde görünüyor bu sayının normal görünmesi için ne yapabilirim?

Örnek üretilen sayı:
2106171735519

Excele aktarılan kod:

Sheet.Cells[Row, 1] := FieldByName('TRCode').AsString;

Rasgele sayı üret:

procedure TForm1.Image12UretClick(Sender: TObject);
var
  TRCode: String;
begin
  DateTimeToString(TRCode, 'ddmmyyhhnnzzz', Now);
  Edit1.Text := TRCode;

 // Edit1.Text := Format('%d', [1234567899999 + Random(123456789)]);
end;

Sheet.Columns[i].NumberFormat := AnsiChar('hghghgf');

bu şekilde bir şey buldum.

Sanırım sorun kod tarafında değil, excelin veriyi yorumlamasında.

Birinci yol: Veri exceldeki kolona sığmıyorsa bu gösterime neden olabilir. Gösterimi kısaltmak için üstel ifade şekli otomatik seçiliyor. Çözüm excelde kolonu biraz genişletmek
Diğer yöntem : Veri aktarma işlemi sonrasında, tüm kolonu seçip veri tipinini metin olarak değiştirebilirsiniz. Veri kolon genişliğine sığmadığında ### gibi bir gösterim olur. Çözüm yine kolon genişliğini artırmak

Denemeler Libre ofis calc da yapıldı. Muktemelen exceldede aynı senaryo geçerlidir.

Görünen çözüm excelin kendi içerisinde.

Edit: Excel export işleminde kolon özellikleri düzenlenebiliyorsa kod içerisinden çözüm üretilmiş olur.

Excel'e hücrenin formatını belirtmelisiniz.
@Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol'ın paylaşımdaki özellik kullanılmalı: NumberFormat 
Ama sayısal değer için # kullanılmalı. Tüm sütun için :

Sheet.Columns[1].NumberFormat := AnsiChar('#');

Yada sadece belirli hücreler için:

Sheet.Cells[Row, 1].NumberFormat := AnsiChar('#');

Merhaba; Sorun çözüldü emeği geçen herkese teşekkür ederim;

Sheet.Cells[Row, 1].NumberFormat := AnsiChar('#');

kodu ile çözülmüştür.