Funktion die TStrings zurückgibt

[RWarnecke]

Zitat von Luckie:

Wie erzeugst du die StringListe und wie gibst du sie wieder frei? das sind nicht ganz irrelevante Codeteile.

Diese Funktion ist eine protected-Funktion in einer Klasse. Ich benutze die TStringListe nur zur Übergabe an das Result. Für mehr nicht.

Zitat von DeddyH:

Ich würde aus der Funktion eine Prozedur machen, die ein TStrings-Objekt als Parameter annimmt. Somit ist die aufrufende Routine für die Instanzierung verantwortlich.

Das heißt, Du würdest bei Listen in einer Klasse, das ganze besser in eine Procedure in den Public-Teil packen ?

[Luckie]

Wenn das Methoden einer Klasse sind, warum kennen sie dann nicht die StringListe? Da braucht man doch gar nichts zu übergeben und andauert wieder neu zu erstellen, nur bei Bedarf leeren.

[jfheins]

Achso, die ist im protected teil, ja dann aist das was anderes

Ich tippe mal, du hast noch irgendwo ein FPaperTrays.Free; stehen - das wird aufgerufen, und das Objekt ferigegeben. Sobald dann die Methode nochmal aufgerufen wird, knallts.
Denk' dran: ein ".Free" setzt den Zeiger nicht zurück auf nil, d.h. deine Abfrage ist nur ganz am Anfang beim ersten Mal von Bedeutung. Und dann könnte man das erstellen der Stringliste eigentlich auch in den Konstruktor packen und nur noch leeren und wiederbefüllen.

[Christian Seehase]

Moin Rolf,

die Umsetzung von Detlefs Idee würde, z.B., so aussehen:

Delphi-Quellcode:

procedure TPrinterCustom.GetPaperTrays(const APaperTrays : TStrings);
var
  pDevMode : PDeviceMode;
  bin : array[0..255,0..23] of Char;
  i : DWORD;
  Res : DWORD;
  PPrinter : PPrinterInfo2;
begin
  APaperTrays.Clear;
  if FAllInfos.Count <> 0 then
  begin
    PPrinter := FAllInfos.Items[FPrinterIndex];
    pDevMode := nil;
    Res := DeviceCapabilities(PPrinter^.pPrinterName,
                              PPrinter^.pPortName,
                              DC_BINNAMES,
                              PChar(@(bin[0][0])),
                              pDevMode);
    for i := 0 to Res-1 do
      APaperTrays.Append(bin[i]);
  end;
end;

Vorteil:
Man erhält eine klarere Struktur für das Erzeugen und Freigeben der Stringliste.

[DeddyH]

Ganz genau. Ich würde nur noch in der ersten Zeile auf Assigned prüfen.

Delphi-Quellcode:

if not Assigned(APaperTrays) then
  raise Exception.Create('Was soll ich denn hier füllen?');

[RWarnecke]

Danke Christian, Danke Detlef. Ich glaube ich werde in der Klasse alle TStrings-Rückgaben so umschreiben wie Christian es gemacht hat. Dann habe ich doch eine saubere Struktur drin. Oder gibt es dagegen etwas einzuwenden ?

[DeddyH]

Ich wüsste jetzt spontan nichts, was dagegen spricht.

[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;

[jbg]

Zitat:

Delphi-Quellcode:

var Res: DWORD;
for i := 0 to Res-1 do

Was ist wohl "DWORD(0)-1" wenn es implizit (und ohne Compiler-Warnung) in ein DWORD umgewandelt wird? Das $FFFFFFFF den 0..255 Bereich bei weitem sprengt sollte klar sein.