Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi text-string aus 2. klasse aufrufen (https://www.delphipraxis.net/90258-text-string-aus-2-klasse-aufrufen.html)

danku 14. Apr 2007 09:36


text-string aus 2. klasse aufrufen
 
Ich habe 2.Klassen:
Tfmcon(klasse von tform) und TLoadsave (eigene klasse)

sobald man auf einen button in der tfmcon klickt, öffnet sich ein aufruf in der tloadsave:

Delphi-Quellcode:
unitloadsave.log(mlog,'textbsp');
//'test' dient als stringausdruck (erläuterungstext aber siehe doch unten ;) )
// besser wäre es anstatt dem 'textbsp' in der eigenen log-methode dies bereits zu vereinbaren unud diese dann zu übergeben?

in tloadsave steht dann folgende vereinbarung:

Delphi-Quellcode:
//////////////////ÄNDERUNGSLOG////////////////
procedure TLoadSave.log(tsbboxsender:TMemo; erlaeuterung:string);
begin
tsbboxsender.lines.add(datetostr(now)+' :');
end;
ich möchte den erlaeuterungs-text in einem tmemo in tfmcon anzeigen aber da gibts den crash.
wäre es angebrachter mit set und get zu arbeiten?

mkinzler 14. Apr 2007 09:40

Re: text-string aus 2. klassen aufrufen
 
Welcher Fehler tritt wo genau auf?

danku 14. Apr 2007 11:02

Re: text-string aus 2. klassen aufrufen
 
Liste der Anhänge anzeigen (Anzahl: 1)
ich sehe gerad da fehlt noch eine methode:


also ich rufe durch einen button-klick folgende methode auf:

Delphi-Quellcode:
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;

mkinzler 14. Apr 2007 11:06

Re: text-string aus 2. klassen aufrufen
 
-Was ist fmlog?
-Welcher Fehler?

danku 14. Apr 2007 11:18

Re: text-string aus 2. klassen aufrufen
 
der sinn war, das man in der mainclass auf einen button klickt, sodass in der anderen klasse eine methode aufgerufen wird.
hinter dieser methode verbirgt sich die formatierung eines tmemo's in der mainclass,

also es wird ein in der methode, welche in der unitloadsave.openfromfilediag() aufgerufen wird, unitloadsave.log() vorhandener string-wert in das tmemo der mainclass geschrieben.

buttonclick -> procedure TLoadSave.openfromfilediag() aufgerufen -> procedure TLoadSave.log() aufgerufen

mkinzler 14. Apr 2007 11:21

Re: text-string aus 2. klassen aufrufen
 
Welcher Fehler?

danku 14. Apr 2007 11:26

Re: text-string aus 2. klassen aufrufen
 
fehlerdatei siehe oben.
mein problem ist es, in der log-datei zu sagen, daß er das memofeld von der mainclass nehmen soll.
soll ich mit set und get arbeiten?

mkinzler 14. Apr 2007 11:28

Re: text-string aus 2. klassen aufrufen
 
Auf was zeigt fmlog?

danku 14. Apr 2007 11:30

Re: text-string aus 2. klassen aufrufen
 
im moment auf nix. ist nur als variable deklariert. aber die übergabe bereitet mir schwierigkeiten

mkinzler 14. Apr 2007 11:31

Re: text-string aus 2. klassen aufrufen
 
Das F weist auf eine private Variable hin. Existiert eine Property? Getter/Setter?


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:52 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz