habs jetzt stundenlang versucht aber ich kriegs einfach nicht hin... wie gesagt in dem Gebiet bin ich ein Blutiger Anfänger. Deshalb wäre ich um eure Hilfe echt froh.
ich versuch zuerst mal eine einzige zelle auszulesen..
ich habs mal so versucht... aber da krieg ich bei der Funktion "GetCells" eine Zugriffsverletzung, und zwar genau hier:
ec := tr.cells;
ich weiss... vermutlich mach ich was ganz fallsch und kappiers von grund auf nicht... deshalb schreib ichs ja hier rein
Delphi-Quellcode:
procedure TForm1.EButton4Click(Sender: TObject);
var
t: IHTMLTable;
row: IHTMLTableRow;
doc: IHTMLDocument2;
begin
doc := CoHTMLDocument.Create as IHTMLDocument2;
if GetDocument(Edit1.Text, doc) = true then
begin
try
// holt die erste tabelle
GetTable(doc,1,t);
except
Showmessage('gettable = false');
exit;
end;
begin
if Assigned(t) = false then
showmessage('t not assigned');
//showmessage(t.rows.toString);
// holt die erste zeile
row := t.rows.item(1, null) as IHTMLTableRow;
// sollte die erste zelle holen
GetCells(row,StringGrid1,1)
end
end
else
showmessage('getdoc = false');
end;