Lazarus 2.0.12 (2021.02.21.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Válasz: StringGrid.LoadFromFile nem működik 2014 dec. 29 09:21 #1433

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 463
  • Köszönetek: 76
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.)
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- FPC 3.3.1 -- Lazarus 2.1.0 -- GNU/Linux 5.4.0 x86_64

Válasz: StringGrid.LoadFromFile nem működik 2014 dec. 28 20:07 #1429

  • sa781207
  • sa781207 profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 16
  • Köszönetek: 0
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.

StringGrid.LoadFromFile nem működik 2014 dec. 20 19:55 #1420

  • Gábor
  • Gábor profilkép
  • Adminisztrátor
  • Adminisztrátor
  • Hozzászólások: 463
  • Köszönetek: 76
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...
Hogyan kérdezzünk okosan? / Mit kell tennünk kérdezés előtt? -- FPC 3.3.1 -- Lazarus 2.1.0 -- GNU/Linux 5.4.0 x86_64

StringGrid.LoadFromFile nem működik 2014 dec. 17 13:54 #1418

  • sa781207
  • sa781207 profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 16
  • Köszönetek: 0

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.

StringGrid.LoadFromFile nem működik 2014 dec. 17 11:29 #1417

  • sa781207
  • sa781207 profilkép Témaindító
  • Új tag
  • Új tag
  • Hozzászólások: 16
  • Köszönetek: 0
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;

  • Oldal:
  • 1