witam napisałem sobie prostą bibliotekę dll która służy do zapisywania danych ze StringGrida do pliku tekstowego.
library dll;
uses
SysUtils,
Classes;
{$R *.res}
procedure zapis(nazwa_pliku:string);stdcall; //zapis
Var F: TextFile;
x, y: Integer;
begin
assignfile (f, nazwa_pliku );
rewrite(f);
writeln (f, stringgrid1.colcount);
writeln (f, stringgrid1.rowcount);
For x:=0 to stringgrid1.colcount-1 do
For y:=0 to stringgrid1.rowcount-1 do
writeln (f, stringgrid1.cells[x, y]);
Closefile (f);
end;
exports
wczytaj name 'zapis';
begin
end.
niestey czepia sie do pierwszego StringGrida i kazdego nastepnego. Stąd moje pytanie jak przekazać StringGrida do mojej procedury w bibliotece DLL?
Pisze w Borland Delphi7