Funktion die TStrings zurückgibt

[RWarnecke]

Ich habe das ganze jetzt in der Zwischenzeit mal ausprobiert mit der Procedure vom Christian, nur leider bekomme ich immer noch eine AccessViolation in der Zeile APapeTrays.Append(bin[i]);

Da die Unit eh OpenSource ist, hänge ich es einfach an. Das ist die Unit aus meiner Komponente TPrinterInfo. Die angehängte Unit beinhaltet schon die Procedure von Christian.

Aufrufen tue ich das ganze so :

Delphi-Quellcode:

procedure TForm23.LB_InstPrnClick(Sender: TObject);
begin
  PrnInfo_1.PrinterIndex := LB_InstPrn.ItemIndex;
  LB_Papertray.Items.Clear;
  PrnInfo_1.GetPaperTrays(LB_Papertray.Items);
end;