Bir sorum olacaktı bu ilk sorum forumda. Bir hatam olursa affola.
Şimdi bende bir tane html dosyası var sadece içirisinde basitçe bir tablo oluşturulmuş
Böyle birşey ilk satır başlık olarak alınacak sonraki satırlar isa malum, alt satırlar olarak yazacak
şimdi satır başlıklarını yazdırdım ama sütunları bu şekilde yazdırmayı bir türlü çözemedim
Kod: Tümünü seç
procedure TFrm_html_oku.Btn_dosya_bulClick(Sender: TObject);
var
yer:TextFile;
satir,yol:string;
ata:AnsiString;
leng,i,j,y,x:integer;
begin
i:=0;
j:=0;
x:=0;
y:=0;
OpenDialog1.title:='HTML Dosyasını Aç';
if OpenDialog1.Execute then
begin
yol:=OpenDialog1.FileName;
AssignFile(yer,yol);
reset(yer);
while not eof(yer) do
begin
Readln(yer,satir);
ata:=copy(TrimLeft(satir),1,4);
if ata='<tr>' then
inc(i);
if i=1 then
begin
if ata='<td>' then
begin
inc(j);
StringGrid1.ColCount:=j;
leng:=length(TrimLeft(satir));
ata:=Copy(TrimLeft(satir),5,leng-9);
StringGrid1.Cells[j-1,0]:=ata;
end;
end
else
if ata='<td>' then
begin
inc(x);
inc(y);
StringGrid1.RowCount:=x;
leng:=length(TrimLeft(satir));
ata:=Copy(TrimLeft(satir),5,leng-9);
StringGrid1.Cells[y,x]:=ata;
end;
end;
end;
end;
end.
Nasıl o son kısmı düzeltirim.
Projenin çalıştığı an