Probleme mit eigener Klasse

[Christian Seehase]

Moin Luckie,

noch ein kleiner Tip, um sich die Sache mit den Parametern bei den Get-/Setmethoden zu erleichtern:

Schreib' einfach nur

property Eigenschaft : typ read GetMethode write SetMethode und dann noch STRG-SHIFT-C gedrückt und schon hat man die Methodedeklaration in der Klasse stehen, und die Grundfunktion unter implementation.
Das geht auch mit "nur" Deklarierten Methoden und auch mit mehreren auf einmal.
Also alle Methoden soweit deklarieren wie notwendig, STRG-SHIFT-C und schon hat man die Grundroutinen fertig.

[CalganX]

Moin Christian,
STRG-SHIFT-C bewirkt bei mir nichts.
Was genau soll das bewirken und wo muss man mit dem Cursor sein?

Chris *gähn*

[Christian Seehase]

Moin Chris,

angenommen, Du hast folgende Deklaration:

Delphi-Quellcode:

type
  Test = class(TObject)
  private
    FsTest : string;
  public
    property TestProp : string read GetString write SetString;
  end;

und unter implementation steht noch nichts, dann kannst Du, mit Cursor in der property Zeile, STRG-SHIFT-C drücken und hast anschliessend:

Delphi-Quellcode:

type
  Test = class(TObject)
  private
    FsTest : string;
    function GetString: string;
    procedure SetString(const Value: string);
  public
    property TestProp : string read GetString write SetString;
  end;

implementation

function test.GetString: string;
begin

end;

procedure test.SetString(const Value: string);
begin

end;

[David Martens]

Die Explode Funktion ist in Delphi schon implementiert:

Delphi-Quellcode:

var
  sl : TStringList;            
  i  : Integer;
begin
  sl := TStringList.Create;

  sl.Delimiter := ' ';        // Trenner der einzelnen "Strings"
  sl.QuoteChar := '|';        // "Quotierung" der Strings

  // hier wird das String separiert und Delphi macht alles für uns
  sl.DelimitedText := '|123 abc| |yxz 987| |hinz und kunz 0192837465|';

  // jetzt noch eine kleine Ausgabe
  for i := 0 to sl.Count-1 do
    ShowMessage(sl[i]);       // oder sl.Strings[i]

  // fertig, Freigeben nicht vergessen
  sl.Free;
end;

[Luckie]

Ähm, der Thread ist fast sieben Jahre alt.

[David Martens]

JA, ich weiß, aber das Beispiel mit dem Explode hab ich schon öfters gesehen. Ich wollt jetzt deswegen kein neues Thema anfangen und die Code-Library ist ja geschlossen

[himitsu]

Zitat von David Martens:

die Code-Library ist ja geschlossen

'nen neues Thema in "Neuen Beitrag zur Code-Library hinzufügen" erstellen und 'nen Link zum gesperrten CL-Eintrag.

@Luckie: besser spät als nie und so hast'e nun endlich eine Lösung für dein Problem