Einzelnen Beitrag anzeigen

Benutzerbild von danku
danku

Registriert seit: 9. Apr 2006
Ort: 32-bit Adressbus
181 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: text-string aus 2. klassen aufrufen

  Alt 14. Apr 2007, 12:02
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;
Miniaturansicht angehängter Grafiken
fehler_772.jpg  
  Mit Zitat antworten Zitat