StringList.Count

[Frage95]

Delphi-Quellcode:

procedure TfrmMainForm.ListBoxShow;
var
   EdVariable: string;
   LbCount,i : integer;
   Liste : TStringList;

begin
   Liste := TStringList.Create;
   EdVariable := frmMainForm.EdNickname.Text;
   LbCount := Liste.Count;
   if LbCount <= 0 then begin
      i := 0;
   end;
   if EdVariable <> '' then begin
      i := Liste.Count;
      i := i+1;
      Liste.Add(frmMainForm.EdNickname.Text + ' ' + '[' + InttoStr(i)+ ']');
      Memo1.Text := Liste.Text;

Ich möchte mit dieser Prozedur Nicknames in die Stringlist speichern und diese im Memo wieder ausgeben.

Soweit funktioniert alles nur dass sich der Count meiner Stringlist nicht ändert er ist stetig 0.
Und deshalb überschreibt er auch alle Nicknames. Weis jemand wie dieses Problem zu lösen ist ?
:?::?:

[mkinzler]

Du erzeugst ja immer eine neue Liste.

[DeddyH]

Du legst die Liste immer wieder neu an, deshalb ist der Count erst einmal 0. Erst durch das Add wird er auf 1 erhöht. Von daher sind die Abfragen auf Count <= 0 überflüssig, da das immer zutrifft.

[Frage95]

Delphi-Quellcode:

procedure TfrmMainForm.ListBoxShow;
var
   EdVariable: string;
   LbCount,i : integer;

begin
   EdVariable := frmMainForm.EdNickname.Text;
   LbCount := Memo1.Lines.Count;
   if LbCount <= 0 then begin
      i := 0;
   end;
   if EdVariable <> '' then begin
      i := Memo1.Lines.Count;
      i := i+1;
      Memo1.Text := (frmMainForm.EdNickname.Text + ' ' + '[' + InttoStr(i)+ ']');

ich hab das jetzt so gemacht da memo.lines ja vom Typ Tstringlist ist muss ich ja keine neue anlegen habe aber immernoch das gleiche problem

[DeddyH]

Nun änderst Du Memo1.Text und damit auch Count.

[baumina]

statt Memo1.Text solltest du Memo1.Lines.Add verwenden, ansonsten überschreibst du jedesmal den kompletten Text.

[Frage95]

Delphi-Quellcode:

procedure TfrmMainForm.ListBoxShow;
var
   EdVariable: string;
   LbCount,i : integer;

begin
   EdVariable := frmMainForm.EdNickname.Text;
   LbCount := Memo1.Lines.Count;
   if LbCount <= 0 then begin
      i := 0;
   end;
   if EdVariable <> '' then begin
      i := Memo1.Lines.Count;
      i := i+1;
      Memo1.Lines.Add(frmMainForm.EdNickname.Text + ' ' + '[' + InttoStr(i)+ ']');

Okay habs hinbekommen trotzdem Danke :thumb:

[baumina]

Noch ein Hinweis:

Du solltest innerhalb einer procedure, die zu deinem Formular gehört das "frmMainForm." (bei z.B. frmMainForm.EdNickname.Text) weglassen.

[DeddyH]

Müsste

Delphi-Quellcode:

if EdNickname.Text <> '' then
  Memo1.Lines.Add(EdNickname.Text + ' ' + '[' + InttoStr(Memo1.Lines.Count + 1) + ']');

nicht dasselbe tun?

[Frage95]

Ja es tut das selbe hab es gerade geändert danke,
aber ich habe noch eine Frage zum Index.

Wie kann ich den Index auslesen aus dem Memo

bei der Listbox war es ja

ListBox1.Items[frmMainForm.ListBox1.ItemIndex];

und wie ist es dann beim Memo ?

[DeddyH]

In einem Memo gibt es keinen ItemIndex, was soll das auch sein? Du könntest höchstens auslesen, in welcher Zeile der Eingabecursor aktuell steht.

[Frage95]

und wie würde ich das dann hinbekommen ?:lol:

[DeddyH]

http://www.delphi-treff.de/tipps/kom...ern-bestimmen/

[Frage95]

okay soweit so gut, doch ich habe folgendes problem

ich habe jz das memo in dem die "Namen" drinstehen. Ich habe jz eine MeoDblClick procedur gemacht für folgendes

Wenn ich einen Namen auswähle dann soll er ein anderes Fenster öffnen und den "Namen" auf den ichgeklickt hab in dessen Label reinschreiben
nur bei mir funktioniert das ganze nicht so es ist egal wo ich reinklicke das fenster öffnet sich immer so kann ich aber auch den "Namen" nicht in das Label bekommen ?

gibt es da eine Lösung ?

[Back2Code]

Zitat:

Zitat von Frage95 (Beitrag 1235052)

okay soweit so gut, doch ich habe folgendes problem

ich habe jz das memo in dem die "Namen" drinstehen. Ich habe jz eine MeoDblClick procedur gemacht für folgendes

Wenn ich einen Namen auswähle dann soll er ein anderes Fenster öffnen und den "Namen" auf den ichgeklickt hab in dessen Label reinschreiben
nur bei mir funktioniert das ganze nicht so es ist egal wo ich reinklicke das fenster öffnet sich immer so kann ich aber auch den "Namen" nicht in das Label bekommen ?

gibt es da eine Lösung ?

Nimm doch lieber eine Listbox als ein Memo.

[Frage95]

Eine Listbox hatte ich da vor hat ja alles wunderbar geklappt, doch die "Liste" in der die Namen stehen soll jeder der sich eingelogt hat sehen ich mache das mit einem Socket
und das ging bei der Listbox i.wie nicht und beim Memo weis ich dass es funktioniert da ich das schon bei meinem Server getan habe also habe ich alles auf Memo umgestellt.

[DeddyH]

Das war aber der falsche Weg. TListBox.Items ist vom Typ TStrings, deren Text kann man ja auch per Socket versenden, etwa

Delphi-Quellcode:

Socket.SendText(ListBox1.Items.Text);

[mkinzler]

Delphi-Quellcode:

Memo.Lines[<Index>];

[DeddyH]

Markus, das ist aber doch etwas anderes als der ItemIndex ;)

[mkinzler]

Ich war nicht auf der letzen Seite und habe eine alte Frage beantwortet...