text-string aus 2. klasse aufrufen

[danku]

Delphi-Quellcode:

function TLog.log(tsbboxsender:TMemo; opendiag: TOpendialog; erlaeuterung:byte; farbe: TColor):string;

    function shortcutarray(erlaeut:LongInt):string;
    var count:integer;
    begin


    //opendialog1
    setdiag(fmdiag);
    count:= opendiag.Files.Count;

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


var log_dat:string;
count,i:integer;
//erlauterung:byte;
begin



{case erlaeuterung of
1:Result:= inttostr(count)+' Datei(en) geladen';
2:Result:= 'test';
 end;           }

tsbboxsender.Font.Color:= farbe;
tsbboxsender.lines.add('['+TimeToStr(now)+'] : '+ shortcutarray((erlaeuterung)));

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

end;