text-string aus 2. klasse aufrufen

[Jelly]

Zitat von danku:

nimms mir nicht übel aber mit dem LS kann ich nichts anfangen. dieser dient doch als klassenbezeichner (punkt-notation) um damit die methoden aufzurufen. es gehört trotzdem noch get und set mit in die unit oder? bei procedure TLoad.Log(What: string); kommt eine EAccessViolation Meldung

Verwechsle Klasse nicht mit Objekt=Instanz einer Klasse

Aber natürlich müsstest du den Code anpassen, damit deine Klasse auch vom OpenDialog Bescheid weiss. Würd ich ebenfalls entweder über den Konstruktor mit übergeben, oder im bestehenden Konstruktor eine eigenen TOpenDialog Instanz erzeugen. Ich tendiere zu letzterem, aber das ist wirklich Geschmackssache. Deshalb, weils jetzt wohl schneller so geht, doch erste Möglichkeit:

constructor Create (AStringList : TStrings; AOpenDialog : TOpenDialog) ; reintroduce ; und die dazu gehörende Implementierung:

Delphi-Quellcode:

constructor TLoadSave.Create(AStringList: TStrings); 
begin 
     inherited Create ; 
     assert (assigned(AStringList) and (AStringList is TStrings),'Bitte StringList Objekt im Constructor übergeben') ; 
     assert (assigned(AOpenDialog) and (AOpenDialog is TOpenDialog),'Bitte OpenDaialog Objekt im Constructor übergeben') ; 


     FStringList := AStringList ; 
     FOpenDialog := AOpenDialog ;
end;

und die erweiterte Log Methode:

Delphi-Quellcode:

procedure TLoadSave.Log(What: string);
    function shortcutarray(erlaeut:LongInt):string; 
    var 
      count:integer; 
    begin 
       count:= FOpenDialog.Files.Count; 

       case erlaeut of 
           1 : Result:= inttostr(count)+' Datei(en) geladen'; 
           2 : Result:= 'test22'; 
       end; 
    end; 


var 
  log_dat:string; 
  count,i:integer; 
begin 
    FStringList.lines.add('['+TimeToStr(now)+'] : '+ shortcutarray((erlaeuterung))); 

    for i:=0 to FOpenDialog.files.count -1 do 
    begin 
           FStringList.lines.add('                    -> '+ Extractfilename(FOpenDialog.files.Strings[i])); 
    end; 
end ;

Soll nun wirklich die Farbe mit in der Log Methode übergeben werden, so sollte eventuell wirklich anstatt einer TStringList ein TMemo im Konstruktor übergeben werden, und auch im restlichen Code daran angepasst werden.