TÉMA:

Javaslom a SaveToCSVFile és a LoadFromCSVFile eljárások használatát, persze ehhez a kiinduló adatfájlt is CSV (tartalmú) szövegfájlként kell menteni vagy ilyenné átalakítani.
Ennek előnye, hogy szükség esetén más szoftverek is nagyobb valószínűséggel tudják majd értelmezni a fájl tartalmát.

(Amikor azt írtad, hogy "Köszi, adj nekem léci egy topik címet vagy rakd ahová való" már 8 napja beállítottam egy új címet e témának is.)

Köszi, adj nekem léci egy topik címet vagy rakd ahová való, de várom segítségedet.
Hogy egy ilyen egyszerű dolog, hogy stringgrid1.loadfromfile ... kod ... stringgrid1.SaveTofile stb . stb .. nem működik.
Utánna néztem, valami xhtml-be menti. Nem tetszik teljesen.

Légy szíves a témát/problémát leíró címeket megadni!
A "Lazarus 2.6 win7 virusirto stb. 10 gb ram READ!" nem az...

sa781207 írta: form1.stringgrid1.savetofile(form1.savedialogbox1.filename)
ok
file megvan a gépen szép jószág

utánna ennek a fordítottja a opendialoggal loadfromfile vel és természetesen nem működik.

Semmi run error debug error, csak nem tölti be.

Ötlet ?

Filenév jónak tűnik ez volt az első tippem.
Megnéztem hibátlan a neve.

Jo amit csinal csak nem állítja át a stringgridek sorainak számát.

Most turkáljak egy 200 kbos txt be hogy mennyi legyen a stringgrid rowcount ?



procedure TForm1.Button12Click(Sender: TObject);
var
f : textfile;
filenev : string;
x, y : longint;
s : string;
begin
if opendialog1.Execute then begin
filenev := opendialog1.FileName;
assignfile(f, filenev);
reset(f);
readln(f, s);
stringgrid1.ColCount:=strtoint(s);
readln(f, s);
stringgrid1.RowCount:=strtoint(s);
for x := 1 to stringgrid1.ColCount do begin;
for y := 1 to stringgrid1.RowCount do begin
readln(f, s);
stringgrid1.Cells[x - 1, y - 1] := s;
end;
end;
closefile(f);
end;
end;

Jo ez a lazarus csak meg a marginvonalak ha hivhatom igy nem tokeletesek, sokszor kell gombokat utanigazítani widthre.

form1.stringgrid1.savetofile(form1.savedialogbox1.filename)
ok
file megvan a gépen szép jószág

utánna ennek a fordítottja a opendialoggal loadfromfile vel és természetesen nem működik.

Semmi run error debug error, csak nem tölti be.

Ötlet ?

Filenév jónak tűnik ez volt az első tippem.
Megnéztem hibátlan a neve.

Jo amit csinal csak nem állítja át a stringgridek sorainak számát.

Most turkáljak egy 200 kbos txt be hogy mennyi legyen a stringgrid rowcount ?



procedure TForm1.Button12Click(Sender: TObject);
var
f : textfile;
filenev : string;
x, y : longint;
s : string;
begin
if opendialog1.Execute then begin
filenev := opendialog1.FileName;
assignfile(f, filenev);
reset(f);
readln(f, s);
stringgrid1.ColCount:=strtoint(s);
readln(f, s);
stringgrid1.RowCount:=strtoint(s);
for x := 1 to stringgrid1.ColCount do begin;
for y := 1 to stringgrid1.RowCount do begin
readln(f, s);
stringgrid1.Cells[x - 1, y - 1] := s;
end;
end;
closefile(f);
end;
end;