Hallo zusammen,
ich möchte in einen Extension
bpl die Liste von geöffneten Dateien abfragen.
Ich habe so probiert, aber diese Methode liefert nur die
dpr Dateien, die zu Projektgruppe gehören und die Units die zu meiner Extension gehören (selbst wenn die Extension-Projekt gar nicht in der Projektgruppe vorhanden ist
)
Delphi-Quellcode:
class function IOTAUTils.GetOpenedEditBuffers: TArray<string>;
var
service : IOTAEditorServices;
it : IOTAEditBufferIterator;
buffer : IOTAEditBuffer;
begin
Result := [];
service := (BorlandIDEServices as IOTAEditorServices);
if Assigned(service) then begin
if (service.GetEditBufferIterator(it)) then begin
for var i := 0 to it.Count - 1 do begin
buffer := it.EditBuffers[i];
if buffer.EditViewCount > 0 then begin // so kann man die *.dpr Dateien ausfiltern, die nicht als Text Datei geöffnet sind
Result := Result + [buffer.FileName];
end;
end;
end;
end;
end;
Wie sollte es richtig gemacht werden?