stringgrid

[shining_eye]

من یک فایل text رو می خوام بیارم تو stringgrid لطفا راهنمایی کنید. قبلا این کار رو برای memo انجام دادم ولی داخل memo یک سری کارها مثل عوض کردن رنگ سطری که روش هستم رو نتونستم انجام بدم به همین دلیل از stringgrid میخوام استفاده کنم .:عصبانی++::عصبانی++::عصبانی++:

[SAASTN]

StringGrid!!! شما برای اون منظوری که فرمودید باید متن رو توی RichEdit ببرید و از SelAttributes استفاده کنید.

[shining_eye]

من باید با string grid این کار رو بکنم با rich edit انجام دادم قبلا.ولی الان مجبورم از stringgrid استفاده کنم. راهنمایی کنید plsssssss

[SAASTN]

var
F: TextFile;
Str: string;
begin
AssignFile(F, FileAddress);
Reset(F);
StringGrid1.RowCount := 2;
while not Eof(F) do
begin
Readln(F, Str);
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1, StringGrid1.RowCount - 1] := Str;
end;
CloseFile(F);
end;

[shining_eye]

من این کد رو نوشتم ولی ERROR میده دلیلش چیه؟

procedure TForm1.BitBtn1Click(Sender: TObject);
var
infile:textfile;
str:string;
begin
opendialog1.FileName :=filename;
if opendialog1.Execute then
begin
assignfile(infile,filename);
reset(infile);
stringgrid1.RowCount :=2;
while not eof(infile)do
begin
readln(infile,str);
stringgrid1.RowCount :=stringgrid1.RowCount+1;
stringgrid1.Cells [1,stringgrid1.RowCount-1];
end;
end;

ERROR ش EXEPTION CLASS EINOUTERROR WITH MESSAGE I/O ERROR6 هست
دلیل ERROR چیه؟

[shining_eye]

اگه ممکنه در مورد سوالی که پرسیدم یکی راهنمایی کنه

[SAASTN]

من کد رو تست نکردم ولی احتمال می دم به خاطر نبست فایل در آخر کار باشه که باعث می شه دفعه بعد که بخواید همون فایل رو باز کنید خطا می ده. بعد از این که کار خوندن فایل تموم شده باید فایل رو ببندید:

CloaseFile(InFile);
ضمنا برای قرار دادن کد از تگ Code یا Source استفاده کنید.