Načítání do Stringgridu – Delphi – Fórum – Programujte.com

Ahoj, potřeboval bych poradit jak mám předělat tento kód, tak aby načítal do stringgridu.

procedure TForm4.BitBtn1Click(Sender: TObject);

var

  sl:TStringList;

  i:Integer;

begin

  sl:=TStringlist.Create;

  sl.Clear;

  for i := 0 to StringGrid1.RowCount - 1 do

    sl.Add(StringGrid1.Rows[i].DelimitedText);

  sl.SaveToFile('data.csv');

  sl.Free;

end;

Nejak mi neni jasny co chces nacitat? Z toho souboru data.csv???

Ano přesně tak. Prostě kliknu na button a rovnou se načte obsah z data.csv

procedure LoadFromFile(jmeno:string);

var i,j, row:integer;

begin

	StringList.LoadFromFile(jmeno);		//nacteni do stringListu



	row := 0;



	for i:=0 to stringList.Count do 		

	begin

		for j:= 0 to StringGrid.ColCount do

		begin

			StringGrid.Cells[j][row] :=  StringList.Strings[i];	//vyplni vsechny sloupce v radku

		end;

		row := row + 1;				//dalsi radek

	end;

end;

Tohle asi nepůjde. Protože Stringlist neumí metodu LoadFromFile

Skoro na konci stranky vlevo nad SaveToFile http://www.delphibasics.co.uk/RTL.asp?Name=TStringList
Co mas za verzi delphi? Moc se mi nechce verit tomu, ze pokud ma metodu SaveToFile, ze by nemel LoadFromFile.....
Pokud je tomu opravdu tak, ze ji ve sve verzi nemas a nechces upgradovat, tak bych asi doporucil vykaslat se i na metodu SaveToFile, a vytvorit vlastni funkce pro nahrani a ulozeni dat. Delat se souborem *.csv "rucne" bych moc nedoporucoval, misto nej bych vytvoril vlastni format souboru. Pokud znas pocet sloupcu stringGridu, tak bych to asi resil kazdy retezec na novy radek.... pak je to jen o nacteni v cyklu....