TartalomFriss hozzászólások
Új fórum témákAktív fórum témákFriss blogbejegyzésekGoogle hirdetésekRSS |
Adatok beolvasása szövegfájlból
Lord Davis, 2009, május 30 - 15:54
Sziasztok! Kérdésem: hogyan lehet adatokat beolvasni külső szövegfájlból? »
|
KeresésBelépésIndex TechPC Fórum
Origo TechbázisSG.hu |
kösz
én egy string változóba szeretném beolvasni, azt egyszerűen x:=LoadFromFile('') vagy hogy?
előre is thx
van egy button és egy label
van egy button és egy label (szemléltetésként)
procedure TForm1.Button1Click(Sender: TObject);
var f : TextFile;
sor : string;
begin
AssignFile(f,'text.txt');
Reset(f);
Readln(f,sor);
label1.Caption:=sor;
CloseFile(f);
end;
ha így csinálod akkor a fájlban lévő első sort fogja beletenni a stringbe, de ha minden sor kell akkor egy string tömbbe tárold őket:
procedure TForm1.Button1Click(Sender: TObject);
var f : TextFile;
sor : array[1..100] of string;
i : integer;
begin
AssignFile(f,'text.txt');
Reset(f);
i:=1;
while not Eof(f) do
begin
Readln(f,sor[i]);
i:=i+1;
end;
CloseFile(f);
end;
thx újra
Akkor az utóbbi most azt csinálja hogy a szöveg minden sorát egy külön tömbe helyezi, nem?
okés, kösz ez nagy segítség, még annyit hogy nem tudod/játok hogy kell stringből számot csinálni ?(ha ez lehetséges)
-
Nem külön tömbbe, hanem egybe. Minden egyes sora a fájlnak egy új eleme a tömbnek, azaz:
1. sora a fájlnak >> 1. elem
2. sora a fájlnak >> 2. elem
és így tovább.. de a tömb nem változik
---------------------------------------------------
Ha a számot stringként kapod meg, de betűket nem tartalmaz akkor StrToInt() függvényt használd az egész típusokhoz (integer, extended, word stb...)!
pl.: ha van két változód: s:string, n:integer
s:='22' akkor így tudod átalakítani:
n:=StrToInt(s);
visszafelé pedig: IntToStr()
Ha a számod valós típus(real), akkor StrToFloat() függvényt használd, ugyan úgy mint az előző példában, és ennek is van inverze: FloatToStr()
Szia! memo-ba és listbox-ba
Szia! memo-ba és listbox-ba így lehet betölteni szövegesfájlt, egy button segítségével:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('text.txt');
listbox1.Items.LoadFromFile('text.txt');
end;