TStrings ausgeben

[geisi]

ich bekommen von der methode reg.getkeynames() ein TStrings-Objekt zurück. Wie kann ich die String ausgeben?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
  keys: TStrings;
  i: integer;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false) then begin
    reg.GetKeyNames(keys);
    //Hier sollen die namen ausgegeben werden
  end;
end;

[marabu]

Nur eine von 42 Möglichkeiten:

ShowMessage(keys.Text); Grüße vom marabu

[BenjaminH]

Hallo
Obwohl marabu schon das einfachste geschrieben hat, sende ich das hier hinterher:
Das hätte dir schon geholfen: TStrings
Der gesammte Text ist in TStrings.Text gespeichert, die einzelnen Zeilen in TStrings.Strings
Hoffe geholfen zu haben
Benjamin

[Ultimator]

Ist TStrings nicht eine abstrakte Basisklasse?
Und sollte man die nicht erst nach (z.B.) TStringList casten, bevor man den Text anzeigen lässt?

[geisi]

bekomme jedesmal eine eaccessviolation(zugriffsverletzung bei adresse...) - errormessage

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
  keys: TStrings;
  i: integer;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false) then begin
    reg.GetKeyNames(keys);
    showmessage(keys.text);
  end;
end;

geht aber so auch nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
  keys: TStrings;
  i: integer;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false) then begin
    reg.GetKeyNames(keys);
    showmessage(keys.Strings[1]);
  end;
end;

[SirThornberry]

@Ultimator: auf keinen Fall casten!! niemand sagt das sie wirklich von TStringlist als typ ist.
TStrings ist wie du geschrieben hast schon die Klasse mit den ganzen abstrakten Methoden, aber das heißt nur das die Klassen welche davon ableiten all diese erst implementieren müssen. Man sollte also kein Object von TStrings ableiten. Wennd auf TStringlist casten willst ist das genau so als ob du ein TObject nach TPanel casten willst. ein TPanel ist ein TObject aber nicht umbekehrt und genau so ist TStringlist vom Typ TStrings aber nicht umgekehrt.

@geisi: Niemals TStrings.Create, es spricht nix dagegen die Variable vom Typ TStrings zu definieren aber dann muss wenigstens TStringlist.Create sein den TStrings ist wie beschrieben Abstract.

[BenjaminH]

So, er sollte recht haben, ihr könnt das hier endgültig vergessen:

Zitat von me:

Sollte SirThornberry recht haben vergesst das hier:

Zitat von me:

Zitat von geisi:

bekomme jedesmal eine eaccessviolation(zugriffsverletzung bei adresse...) - errormessage

Da musst du vermutlich Ultimators hinweis beachten:

Zitat von Ultimator:

Ist TStrings nicht eine abstrakte Basisklasse?
Und sollte man die nicht erst nach (z.B.) TStringList casten, bevor man den Text anzeigen lässt?

Leider war kein roter Kasten da

[Ultimator]

@SirThornberry: Ups, stimmt
Ich dachte nur, weil man kann ja eine Prozedur, die als einen Parameter TStrings erwartet eine StringList übergeben, und dann in eben dieser Prozedur wieder auf etwas anderes casten, so wie ich das immer verstanden hab. Sonst würde es ja auch keinen Sinn geben, wenn Parameter vom Typ TStrings sind, wenn man nicht weiß, zu was man sie casten soll?

PS: Geil, der rote kasten funktioniert

[SirThornberry]

@BenjaminH: Ultimator hat bedingt recht. Sein einwand das man nicht mit TStrings arbeiten sollte (also zumindest nicht erzeugen) war richtig, aber das man TStrings einfach auf TStringlist casten soll ist völlig falsch.
Es fehlt soweit ich gesehen hab einfach das TObject.Create, also TStringlist.create.

geisi hat also einfach nur eine Variable vom Typ TStrings aber nie eine instanz mit TStringlist.Create angelegt.

[geisi]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
  keys: TStrings;
  i: integer;
begin
  keys := TStrings.Create();
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',false) then begin
    reg.GetKeyNames(keys);
    mmaus.Lines := keys;
  end;
end;

hab jetzt TStrings.create gemacht funktioniert aber auch nicht!

wie kann ich das jetzt casten?