ich sehe gerad da fehlt noch eine methode:
also ich rufe durch einen button-klick folgende methode auf:
unitloadsave.openfromfilediag(sgdat,opendialog1,edpath);
in der dazugehörigen klasse tloadsave steht:
Delphi-Quellcode:
...
implementation
var fmlog: TMemo;
...
////////////////OPENDIALOG1//////////////////////
procedure TLoadSave.openfromfilediag(sender: TStringgrid;
opendiag: TOpendialog; edaltsender:TEdit);
var i,j:byte;
count:integer;
log_dat:string;
begin
if opendiag.Execute then
begin
...
//Log-Daten setzen
count:= opendiag.Files.Count;
log_dat:=inttostr(count)+' Datei(en) geladen';
log(fmlog,log_dat);
...
end;
end;
//////////////////ÄNDERUNGSLOG////////////////
procedure TLoadSave.log(tsbboxsender:TMemo; erlaeuterung:string);
begin
tsbboxsender.lines.add(datetostr(now)+' :'); ///////////////hier ist das PROBLEM: Zugriffsverletzung//////////
end;