StringList

[blackyhb]

Hallo Leute,

ich versuche vergeblich in einer StringListe die Reihenfolge der
Einträge umzukehren!!!

Mit Move funktioniert das bei mir leider nicht!

Hat jemand eine fertige Lösung für mich ?

Bin immer noch Anfänger und würde mich sehr freuen!

MfG

blackyhb

[Sharky]

Hai blackyhb,

Du könntest dir Dafür eine Funktion schreiben die dann als Ergebniss eine TStringListe zurückgibt.
Ungetestet:

Delphi-Quellcode:

function DownToUp (const sl : TStringList) : TStringList;
var
  ndx : Integer;
begin
  for ndx := Pred (sl.count) downto 0 do
  begin
    result.Add(sl.Strings[ndx]);
  end;
end;

[blackyhb]

Hallo Stephan,

ich möchte keine neue Liste erstellen!!!???

blackyhb

[Luckie]

Und was spricht dagegen, sie dann wieder in die ursprüngliche zurück zu kopieren?

[Sharky]

Hier mal ein Beispiel. Dafür habe ich die Funktion nur leicht verändert

Delphi-Quellcode:

function DownToUp (const source : TStringList) : TStringList;
var
  ndx : Integer;
  dest : TStringList;
begin
  dest := TStringList.Create;
  try
    for ndx := Pred (source.count) downto 0 do
    begin
      dest.Add(source.Strings[ndx]);
    end;
    result.Text := dest.text;
  finally
    dest.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  foo : TStringList;
  ndx : Integer;
begin
  foo := TStringList.Create;
  try
    foo.AddStrings(Memo1.Lines);
    foo := DownToUp (foo);
    Memo2.Lines := foo;
  finally
    foo.Free;
  end;
end;

[Jens Schumann]

Hallo Sharky,
ich habe mal einen Kommtar in den Source geschrieben

Zitat von Sharky:

Hier mal ein Beispiel. Dafür habe ich die Funktion nur leicht verändert

Delphi-Quellcode:

function DownToUp (const source : TStringList) : TStringList; // sollte TStrings sein
var
  ndx : Integer;
  dest : TStringList;
begin
  dest := TStringList.Create;
  try
    for ndx := Pred (source.count) downto 0 do
    begin
      dest.Add(source.Strings[ndx]);
    end;
    result.Text := dest.text;  // <- Geht nicht, da kein Result:=TStringList.Create da ist
  finally
    dest.Free;
  end;
end;

[Sharky]

Hai Jens,

bei mir geht es so ohne Probleme

[Jens Schumann]

Zitat von Sharky:

Hai Jens,

bei mir geht es so ohne Probleme

Glaube ich nicht.
Result soll doch auf ein Objekt vom Type TStringList zeigen.
Wie soll das gehen, wenn Du das Objekt nicht über Create
erzeugst???

[Sharky]

Zitat von Jens Schumann:

..Glaube ich nicht....

Dann sei so gut und teste es.

[Jens Schumann]

Zitat von Sharky:

Zitat von Jens Schumann:

..Glaube ich nicht....

Dann sei so gut und teste es.

Mit glaube ich nicht meinte ich, dass ich nicht glaube das es bei Dir läuft.
Ich habe es getestet bevor ich meinen ersten Kommentar geschrieben habe.
Bei mir läuft es nicht.