خواندن فایل text در دلفی

[SRS534]

چگونه میتوانیم فایل text ای را با استفاده از دلفی مثلا ده کاراکتر ده کاراکتر بخوانیم و در بانک بریزیم

با تشکر

[davoodmz]

با سلام
کد زیر:

var
f:textfile;
s1,s:string;
i,j,t,k:word;
begin
assignfile(f,'a.txt');
reset(f);
i:=0;
j:=0;
k:=0;
while(not(eof(f))) do begin
readln(f,s1);
for t:=1 to length(s1) do
if (s1[t]<>' ') then begin
inc(k);
s:=s+s1[t];
end
else begin
k:=0;
if s<>'' then begin
form1.StringGrid1.ColCount:=j+2;
form1.StringGrid1.RowCount:=i+1;
form1.StringGrid1.Cells[j,i]:=s;
inc(j);
end;
s:='';
end;
if t=length(s1)+1 then begin
form1.StringGrid1.Cells[j,i]:=s;
s:='';
end;
inc(i);
j:=0;
end;
end;
موفق باشی

[Ehsani2006]

یا خیلی راحت تر کلشو بخونی .
یه فیلد Text یا همون Memo تو بانک تعریف کن . بعد روی Table دبل کلیک کن و سپس کلیک راست در پنجره کوچک باز شده و انتخاب گزینه Add All Fields .

میای تو فرمت مثلا توی Onclik یک Botton می نویسی :

PcSrvLogTblDisc.LoadFromFile('نام فایل');

نام جدول : PcSrvLogTbl
نام فیلد Text ه: Disc

[مجتبی صادقپور]

یک memo روی فرم بذار
بعد با دستور('memo1.lines.loadfromfile(' file name فایل متنی رو load کن بعد با یک حلقه ده کاراکتر ده کاراکنر بخون و تو بانک بریز