Compilerfehler bei TStringList: fpg_intf.pas(787,26) Error: Wrong number of parameters specified for call to "Delete"

[Mario Peters]

Hallo!

Ich steh grad auf dem Schlauch!

Habe diesen Algotithmus:

function TMyClipBoard.DoGetText: String;
var DelIndex: Integer;
begin
DelIndex := FClipBoard.Count-1;
FClipBoardText := FClipBoard[DelIndex];
TStringList(FClipBoard.Delete[DelIndex]); //Hier wirft der Compiler die Meldung
result := FClipboardText;
end;

Was mache ich da falsch?

Ich will die Clipboardeinträge nach ihrer Verwendung aus der Liste löschen. Was kann ich stattdessen tun? Ich verstehe nicht warum das nicht funktioniert. Ich trage die Strings in meine Zwischenablage ein, um sie zwischenzuspeichern und will sie bei Bedarf, zum Kopieren an andere Stelle wieder verwenden und nach Benutzung aus der Zwischenablage entfernen.

[theo]

Es wäre ganz gut, wenn du die Deklaration von FClipBoard angeben würdest.
Dieses "Casting" macht auch keinen Sinn:

Code: Alles auswählen

TStringList(FClipBoard.Delete[DelIndex]); 

Aber hauptsächlich verwendest du eckige Klammern. Das ist falsch. Es ist eine Procedure. So geht's bestimmt:

Code: Alles auswählen

FClipBoard.Delete(DelIndex);      

Vielleicht mal einen Kaffee trinken?

[Mario Peters]

Mein Clipboard ist do hier definert:

Code: Alles auswählen

 TfpgClipboardImpl     = class(TfpgClipboardBase)       //genau hinschauen
  private
    FClipBoardText: TfpgString;
    FClipboard: TStrings;
    function    DoGetText: TfpgString; override; 
    procedure   DoSetText(const AValue: TfpgString); override;
    procedure   InitClipboard; override;
  public
    property Text: TfpgString read DoGetText write DoSetText;
    property ClipBoardText: TfpgString read FClipBoardText write FClipBoardText;
    property ClipBoard: TStrings read FClipBoard write FClipBoard;
  end;
 

function  TfpgClipBoardImpl.DoGetText: TfpgString;
var DelIndex: Integer;
begin
  DelIndex := FClipBoard.Count-1;
  FClipBoardText := FClipBoard[DelIndex];
  FClipBoard.Delete(DelIndex); // Auch das löst mein Problem nicht
  result := FClipboardText;
end;

procedure TfpgClipBoardImpl.DoSetText(const AValue: TfpgString);
begin
  if FClipboardText <> AValue then
  begin
   FClipBoardText := AValue;
   FClipBoard.Add(FClipboardText);
  end; 
end;

procedure TfpgClipBoardImpl.InitClipboard;
begin
  FClipBoardText := '';
  FClipBoard := TStringlist.Create;
end;


Was soll ich denn da nun anders machen?  :(

[Zvoni]

Code: Alles auswählen

 TfpgClipboardImpl     = class(TfpgClipboardBase)       //genau hinschauen
  private
    FClipBoardText: TfpgString;
    FClipboard: TStrings;
    function    DoGetText: TfpgString; override; 
    procedure   DoSetText(const AValue: TfpgString); override;
    procedure   InitClipboard; override;
  public
    property Text: TfpgString read DoGetText write DoSetText;
    property ClipBoardText: TfpgString read FClipBoardText write FClipBoardText;
    property ClipBoard: TStrings read FClipBoard write FClipBoard;
  end;
 

function  TfpgClipBoardImpl.DoGetText: TfpgString;
var DelIndex: Integer;
begin
  DelIndex := FClipBoard.Count-1;
  FClipBoardText := FClipBoard[DelIndex];
  FClipBoard.Delete(DelIndex); // Auch das lost mein Problem nicht
  result := FClipboardText;
end;

Was soll ich denn da nun anders machen?

FClipBoard.Delete(DelIndex); // Auch das lost mein Problem nicht
Das ist jetzt aber anderst als vorher.
Und welchen Fehler bekommst du hier?

Ausserdem sieht mir der ganze Zinnober doch sehr nach nem "Stack" aus....

EDIT: Ist das fpGUI????

[Mario Peters]

Ja ist fpGUI! Ich kriege den besagten Compiler Fehler! Warum? Wie könnte ich so ein Clipboard noch coden?

[af0815]

Ja ist fpGUI! Ich kriege den besagten Compiler Fehler! Warum? Wie könnte ich so ein Clipboard noch coden?

Schon angesehen, wie dieses "Delete" im Source aussieht ?! Weil dorthin springen müsste man ja können und sich die Deklaration ansehen und somit auch eine eventuell vorhandene Überladung.

[Zvoni]

Ja ist fpGUI! Ich kriege den besagten Compiler Fehler! Warum? Wie könnte ich so ein Clipboard noch coden?

Schon angesehen, wie dieses "Delete" im Source aussieht ?! Weil dorthin springen müsste man ja können und sich die Deklaration ansehen und somit auch eine eventuell vorhandene Überladung.

Sein "Delete" gehört zu FClipBoard, was ein TStrings/TStringList ist.
https://www.freepascal.org/docs-html/rt ... elete.html
https://www.freepascal.org/docs-html/rt ... elete.html
Ergo ist das hier richtig:
FClipBoard.Delete(DelIndex); // Auch das lost mein Problem nicht

Nur was ist jetzt da das Problem?

Und ich verstehe nicht, wieso er in fpGUI-Internen Klassen rumpfuscht
https://fpgui.sourceforge.net/apidocs/f ... board.html

[theo]

Code: Alles auswählen

  FClipBoard.Delete(DelIndex); // Auch das löst mein Problem nicht

Ich bin mir ziemlich sicher, dass dies dein Problem löst.
Vielleicht hast du noch ein zusätzliches Problem, aber kaum mit der selben Fehlermeldung an der selben Stelle.

[Mario Peters]

Ja, tut es jetzt auch, hatte Schreibfehler. Danke für die Hilfe.