TartalomFriss hozzászólások
Új fórum témákAktív fórum témákFriss blogbejegyzésekGoogle hirdetésekRSS |
Tömb gond
otlik, 2010, augusztus 26 - 15:40
Ismét én okozok gondot, előre is elnézést. Olyan gondom lenne, hogy fájlból tömbbe nyitok meg adatokat. Forráskód: var sor: array[1..31] of string; //Tömb kiírása labelbe// Segítséget előre is köszönöm! »
|
KeresésBelépésIndex TechPC Fórum
Origo TechbázisSG.hu |
Látni kellen a fájlt is
Szervusz!
Valószínűleg egy stringnek veszi az összes sort.
Próbáld ki, hogy felteszel egy memo-t és megnézed benne hogyan néz ki!
Memo1.lines.loadfromfile('beosztas.dat');
Ha sorokban van, akkor már fel is tudod használni
for i:=1 to memo1.lines.count do
sor[i]:=memo1.lines[i];
//vagy i:=0 mert az első sor a 0-ik, de akkor a sor[i+1]
A memo-t eltüntetheted a form-ról
memo1.visible:=false;
Ha nem sorokban lesz, akkor a fájlban van a hiba.
Viszont ha memo-ban van tárolva, akkor észreveheted, hogy az is tömb, tehát ha már nem hívatkoztál nagyon sok helyen a a sor[]-ra akkor használhatod közvetlenül is.
label1.caption:=memo1.lines[1];
Üdv.: Totó
Korrektül így nézne
célszerü a memo-val elkészíteni a dat fájlt, mert akkor biztos sorokban lesz.
Korrektül így nézne ki megnyitás:
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
try
memo1.lines.loadfromfile(opendialog1.filename);
except showmessage('Sajnos nem sikerült megnyitni a fájlt!');
end;
end;
és ha menteni akarod:
procedure TForm1.Button2Click(Sender: TObject);
begin
if savedialog1.execute then
try
memo1.lines.savetofile(savedialog1.filename);
except showmessage('Sajnos nem sikerült menteni a fájlt!');
end;
end;
Üdv.: Totó
Köszönöm szépen a
Köszönöm szépen a megoldást, bevált, és elnézést a sok kérdésért.
Szívesen, örülök ha
Szívesen, örülök ha segíteni tudtam!
Üdv.: Totó