UTF8 CSV FILE OLUŞTURMA

[mmg]

Merhaba,

CSV dosyası oluşturmak için aşağıda görülen kodu kullanıyorum fakat oluşan dosyada Türkçe karakter sorunu oluyor. Bu durumu aşmak için CSV dosyasını "UTF8" olarak nasıl oluşturabilirim, bu parametreyi nasıl kullanabilirim ? Yardımlarınız için teşekkürler.

Kod: Tümünü seç

procedure TAnaForm.CSVEXPORTClick(Sender: TObject);
var
  Stream: TFileStream;
  i: Integer;
  OutLine: string;
  sTemp: string;
begin

  Stream := TFileStream.Create('C:\Temp\Stoklar.csv', fmCreate);
  try
    while not STOK.Eof do
    begin
      OutLine := '';
      for i := 0 to STOK.FieldCount - 1 do
      begin
        sTemp := STOK.Fields[i].AsString;
        OutLine := OutLine + sTemp + ';';
      end;
      SetLength(OutLine, Length(OutLine) - 1);
      Stream.Write(OutLine[1], Length(OutLine) * SizeOf(Char));
      Stream.Write(sLineBreak, Length(sLineBreak));
      
      STOK.Next;
    end;
  finally
    Stream.Free;
  end;

end;

[freeman35]

Merhaba
Memo1.Lines.SaveToFile('C:\Temp\Stoklar.csv', TEncoding.UTF8);
kolay gele

[mmg]

freeman35, oldu . Mükemmel gözüküyor.

TFileStream kullanmak yerine dediğiniz gibi memoya yazıp .csv olarak kaydettim ve UTF8 kaydetti. TFileStream ile kaydederken uğraştığım satır sonu breaklere, yazılan bilginin uzunluğunu belirlemeye hiç gerek yokmuş, tek merak ettiğim oluşan dosyanın yapısı ile ilgili arada bir fark yok değil mi ? Çok teşekkürler.

Düşüncedeki sonsuzluk mükemmel bir şey.

[freeman35]

freeman35, oldu . Mükemmel gözüküyor.

kara gözündü demiyorsanız, gözüktü demek de manasız. "görünüyor." Tıpkı Türkçe olimpiyatlarına "start" verilemeyeceğine göre. Kefere "başladı" demiyor, tamam, peki demiyorsa Atatürk'ün öğrettiği dili kullanın.

yapısı ile ilgili arada bir fark yok değil mi ?

öğrenmek istiyorsan kodu takip et. ctrl + sol klik ile o komuda ulaşırsın.

[mmg]

Problemlerin çözümü konusunda yardımların için teşekkürler.

freeman35, oldu . Mükemmel gözüküyor.

kara gözündü demiyorsanız, gözüktü demek de manasız. "görünüyor." Tıpkı Türkçe olimpiyatlarına "start" verilemeyeceğine göre. Kefere "başladı" demiyor, tamam, peki demiyorsa Atatürk'ün öğrettiği dili kullanın.

"Biraz daha tırmanınca ileride çam ormanı gözükmeye başladı." - Sait Faik Abasıyanık

Kullanılabiliyormuş,

[freeman35]

doğrudur, İnsan 35-40 sene önce öğretmeninin öğrettiği doğruyu kendi doğrusu bellediği için google dan, internetten gördüğünü kabullenemiyor.

görünmek

1. nesnesiz Görülür duruma gelmek, görülür olmak, gözükmek:
"Bakarım bakarım sılam görünmez / Ara yerde yıkılası dağlar var" - Karacaoğlan

linki vermemişsin
kaynak
https://sozluk.gov.tr/

Derdimiz öğretmek,

[sabanakman]

Türk dili yaşayan bir dil. Gözükme doğru bir ifade. Fakat dil kurallarına aykırı bir kelime halkın benimsemesi ve kolayına gelmesi nedeniyle zamanla doğruya dönüşebiliyor. Korkum odur ki TDK bir gün imla kılavuzuna "şarz" kelimesini eklemesidir

[mmg]

[yusuf simsek]

Her zaman söylerim! Bizim Form BAŞKA FORM

[Commandx]

Elektriğin 5. Şarzı

O halde Silah Şarjörlerini de Şarzör olarak değiştirmeleri gerekecek

Türk dili yaşayan bir dil. Gözükme doğru bir ifade. Fakat dil kurallarına aykırı bir kelime halkın benimsemesi ve kolayına gelmesi nedeniyle zamanla doğruya dönüşebiliyor. Korkum odur ki TDK bir gün imla kılavuzuna "şarz" kelimesini eklemesidir

Şarj Diyenlerin bir gecede Cahil bırakılacağı hadisedir.