IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - Csv to Stringgrid (https://www.ircforumlari.net/delphi/689555-csv-stringgrid.html)

Kaf_Dağı

18 Mart 2015 14:34

Csv to Stringgrid

Kod:

procedure LoadFromFile(sg: TStringGrid; csv: TFileName);

var

   sRows, sCols: TStrings;

   i: Integer;

begin

   sRows := TStringList.Create;

   sRows.LoadFromFile(csv);

   sCols := TStringList.Create;

   sCols.CommaText := sRows[0];

   sG.ColCount := sCols.Count;

   sCols.Free;

   SG.RowCount := sRows.Count;

   for i := 0 to Pred(sRows.Count) do

     SG.Rows[i].CommaText := sRows[i];

   sRows.Free;

end;

 

procedure TDemoForm.LoadButtonClick(Sender: TObject);

begin

   LoadFromFile(SG, 'C:\\daten\\messdaten.csv');

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:18.