Pake TStringList aja, tapi hanya untuk file teks!!
// ++ Code Start ++
Procedure DisplayFile(sFileName : string);
Var
st : TStringList;
i : integer;
Begin
st := TStringList.Create;
st.LoadFromFile(sFileName);
for I := 0 to st.Count - 1
WriteLn(st.Strings[i]); // iterasi setiap baris dalam file
st.Free;
End;
// ++ Code End ++
-----Original Message-----
From: benny_online2002 [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 09, 2003 9:22 AM
To: [EMAIL PROTECTED]
Subject: [Delphindo] tanya sintax untuk membaca file text (*.txt) baris
per baris
tolong dong teman-teman
bantuin bagaimana sintaxnya untuk membaca file text (*.txt) baris per
baris
terima kasih
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges at Myinks.com - Save 80%. Quality inkjet cartridges &
refill kits! FREE s/h on $50 orders to the US & Canada. Fast shipping.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/hwZBYB/zoVGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
