Unit zu bestimmter Funktion herausfinden?

[Kasmus]

Hallo zusammen.

Es ist mir jetzt schon ein paar Mal passiert, dass ich in der OH eine wunderschöne knackige Funktion gefunden habe, die aber als "Undefinierter Bezeichner" bemängelt wurde. Den Namen der zugehörigen Unit habe ich dann meistens hier im Forum gefunden.

Wie erfahre ich in Zukunft selbst, welche Unit eingebunden werden muss, falls mir wieder mal so ein undeclared entgegenschlägt? :gruebel:


Gruß,
Kasmus

[Die Muhkuh]

Hi und willkommen in der DP :hi: :dp:,

normalerweiße steht das ja so in der OH drinne

Code:

<kurze beschreibung>
<unit>
<kategorie>
<syntax>
<Beschreibung>

Also die Unit die unter Unit steht in Uses eintragen

[Ultimator]

Also enfach tapfer F1 über dem Wort drücken und dann oben nach "Unit ..." suchen. Diese dann einbinden.

[Kasmus]

Danke für das herzliche Willkommen. :-D

Ich bin scheinbar ein wenig blind...
Konkret geht es gerade um CompareStrings - da steht nur "(Methode von TStrings)".

Trotzdem ist es undeclared.


Gruß,
Kasmus

[Die Muhkuh]

Und wenn du auf TStrings klickst dann kommt:

Code:

TStrings ist die Basisklasse für Objekte, die eine Liste mit Strings darstellen.

Unit

Classes

[...]

[Kasmus]

Schon, aber Classes steht schon in der Liste:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Types, Buttons, ShellApi;

Woran liegt's?

Gruß,
Kasmus

[fkerber]

Hi!

Dann musst du wohl am Besten etwas Code zeigen. Evtl. liegt es ja nicht daran, dass die Funktion undefiniert ist, sondern etwas anderes (Variable etc.)

Zeig am Besten mal her ...

Ciao fkerber

[Stanlay Hanks]

Hi. Anscheinend liegt es nicht an seinem Code. Ich hab grade mal probier:

Delphi-Quellcode:

CompareStrings('Hallo','Halloho');

und er hat sich auch über einen undefinierten Bezeichner beschwert. Aber es heißt ja auch "Methode von TStrings". Also kann man das vielleicht nicht so direkt aufrufen :gruebel:

Als Alternative könnte dir vielleicht "AnsiCompareText" aus der Unit SysUtils weiterhelfen. Die Funktion beachtet aber beim Vergleichen die Groß- und Kleinschreibung nicht.

Man liest sich, Stanlay :hi:

[alcaeus]

Hmm, die müsste eigentlich in TStrings enthalten sein, aber wenn ich mal eine TStrings-Objektvariable mache und mit Hilfe der Codevervollständigung nachschaue, scheints die nicht zu geben, und zwar auch nicht bei TStringList...Wurde die vielleicht vergessen und ist zufällig noch in der Hilfe?
@Kasmus: Welches Delphi hast du? Bei meinem D7Ent gibts die Methode nicht mehr

[Christian Seehase]

Moin alcaeus,

Zitat:

Zitat von alcaeus

Bei meinem D7Ent gibts die Methode nicht mehr

also D7 PE kennt die Methode, da wird's bei der EE auch nicht anders sein.

Es handelt sich aber um eine interne, als Protected deklarierte, Methode, die man in eigenen Ableitungen von TStrings (oder TStringList), verwenden kann, um, z.B., die "Unart" von IndexOf die Gross- / Kleinschreibung nicht zu beachten, abzuändern.

[himitsu]

Diese Funktionen gibt es noch in D7, aber man kann sie eben nicht so einfach verwenden.
:idea: Es steht ja in der Hilfe, dass man diese Funktion nur in abgeleiteten Klassen verwenden kann.

Zitat:

Zitat von CompareStrings

In TStrings wird CompareStrings intern verwendet, um ...

Zitat:

Zitat von protected

Ein protected-Element ist innerhalb des Moduls mit der Klassendeklaration und in allen abgeleiteten Klassen (unabhängig davon, in welchem Modul sie deklariert sind) sichtbar. Auf ein protected-Element können alle Methoden einer Klasse zugreifen, die von der Klasse mit der Elementdeklaration abgeleitet ist. Mit diesem Sichtbarkeitsattribut werden also Elemente deklariert, die nur in den Implementierungen abgeleiteter Klassen verwendet werden sollen.

Dort hat sich CompareStrings versteckt:

Delphi-Quellcode:

TStrings = Class(TPersistent)
  Protected
    Function CompareStrings(Const S1, S2: String): Integer; virtual;
  End;

TStringList = Class(TStrings)
  Protected
    Function CompareStrings(Const S1, S2: String): Integer; override;
  End;

Hier die Funktionen dazu:

Delphi-Quellcode:

Function TStrings.CompareStrings(Const S1, S2: String): Integer;
  Begin
    Result := AnsiCompareText(S1, S2);
  End;

Function TStringList.CompareStrings(Const S1, S2: String): Integer;
  Begin
    If CaseSensitive Then Result := AnsiCompareStr(S1, S2)
    Else Result := AnsiCompareText(S1, S2);
  End;

Und wie ihr seht, braucht man CompareStrings auch nicht zu verwenden, denn diese machen den Vergleich eh nicht selber.
Also greift do lieber auf die verfügbaren Funktionen zurück :zwinker:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Begin
    If AnsiCompareText('Hallo', 'Halloho') ...
    If AnsiCompareStr('Hallo', 'Halloho') ...
  End;

Und wer glaubt dort ist es zu ende mit dem Weiterleiten, der Irrt total ...

Delphi-Quellcode:

Function CompareString; external Kernel32 Name 'CompareStringA';

Function AnsiCompareText(Const S1, S2: String): Integer;
  Begin
    Result := CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE,
      PChar(S1), Length(S1), PChar(S2), Length(S2)) - 2;
  End;

Function AnsiCompareStr(Const S1, S2: String): Integer;
  Begin
    Result := CompareString(LOCALE_USER_DEFAULT, 0,
      PChar(S1), Length(S1), PChar(S2), Length(S2)) - 2;
  End;

// CompareStrings > AnsiCompareStr  > CompareString (Windows)
// CompareStrings > AnsiCompareText > CompareString (Windows)

[EDIT]
ich hätte mich wohl nicht nebenbei 'nen Film gucken sollen
fast zwei Stunden für 'nen Beitrag ist schon fast Weltrecord :roll:

[alcaeus]

Zitat:

Zitat von himitsu

ich hätte mich wohl nicht nebenbei 'nen Film gucken sollen
fast zwei Stunden für 'nen Beitrag ist schon fast Weltrecord :roll:

Film und Delphi, der perfekte Abend :lol: ber zwei stunden für einen Beitrag, das scheint mir lang zu sein :?

[Kasmus]

Danke euch allen! :wink:

Ich benutze übrigens auch Delphi 7 Personal.


Gruß,
Kasmus