coba pake ini
OK
var F:textfile;
s,SSQL :string;
begin
AssignFile(F,'test.txt');
Reset(F);
while not Eof(F) do
begin
Readln(F, S);
IsiData := true;
if Trim(S) = '' then IsiData := false;
if IsiData then
begin
with Query1 do
begin
SQL.Clear;
SQL.Add('INSERT INTO Table1 (KODE, Nama) ');
SQL.Add('VALUES (''');
SQL.Add(Trim(Copy(S,1, 17) + ''', ''');
SQL.Add(Trim(Copy(S, 18, 25)) + ''' )');
ExecSQL;
end;
end;
end;
end;
-----Original Message-----
From: bdisun [mailto:[EMAIL PROTECTED]
Sent: Tuesday, March 25, 2003 4:41 PM
To: [EMAIL PROTECTED]
Subject: [Delphindo] nanya lagi ya? :) load string
trims pertanyaan saya dijawab semua 1X lg trims u/ delphi mania...
eh..mas2 nanya lagi boleh ya:) ng kalu kita mau ambil data yang ada
di notepad/ extensi TXT/DAT & dipindahkan(load) ke DB yang cck pakai
comp. apa ya...
trims
"NOTICE
This e-mail and any attachment is intended only for the exclusive and
confidential use of the addressee(s).
If you are not the intended recipient, any use, interference with,
disclosure or copying of this material is unauthorised and prohibited.
If you have received this message in error, please notify the sender by
return e-mail immediately and delete the message from your computer without
making any copies."
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/hdqFAA/xGHJAA/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/
