Problem mit Liste

[Poring]

Das sieht jetzt deutlich komplizierter aus :gruebel: Naja werde es mal anscheun vll bekommeich das ja hin.
Achja ich hätte da noch eine Frage zu
mySL.AddObject ('Test', TObject (5));
Den Namen Test kann ich ja auch mit einem Wert eines EditBox versehn, ist dies auch bei dem TObject(5) möglich? Also das ich diesen Wert mittels einer Zahl in einer anderen EditBox eingebe? Denn mit
mySL.AddObject ('Test', TObject (Edit1.Text));
Gibt er mir einen Wert aus: 9977808 (Edit1.Text=4)

[Nuclear-Ping]

Die Zahl die er dir ausgibt, ist wohl die Adresse des TEdit oder so.
Denn du "type castest" "TEdit.Caption" (vom Typ TCaption, Zeichen) nach TObject (Integer-Wert). Das klappt so nicht.

Wenn du das machen willst, musst du da noch eine Umwandlung von Edit1.Text nach Integer (inttostr, F1) machen.

[Poring]

Mit dem InToStr weis ich schon, nur habe ich das getestet:

Delphi-Quellcode:

  mySL.AddObject ('Test', TObject (IntToStr(Edit1.Text)));

und da kommt gleich ein Fehler
[Fehler] Unit1.pas(34): E2250 Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann

Deswegen fragte ich :/

[mkinzler]

Edit.Text ist auch schon ein String:

Delphi-Quellcode:

mySL.AddObject ('Test', TObject (Edit1.Text));

[Poring]

Dann bekomme ich ja 9977808 raus für Edit1.Text=4 und nicht 4

[mkinzler]

Warum willst du auch einen String in ein Objekt casten? Nimm doch .Add( )

[Poring]

Delphi-Quellcode:

mySL.Add ('Test', (Edit1.Text));

so?
Gibt aber auch ein Fehler: [Fehler] Unit1.pas(34): E2034 Zu viele Parameter

[mkinzler]

Die IDE zeigt dir doch die erwarteten Parameter an

[Poring]

Aber dann habe ich doch keine Zahl mehr die ich zum sotieren benutzen kann :?:

[Nuclear-Ping]

Sorry, StrToInt wars.

Mit Add kannst du nur einen Text hinzufügen. Er will aber Text + Wert.

Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click (Sender: TObject);
var
  i: Integer;
begin
  if not TryStrToInt (Edit1.Text, i) then
    Exit;
  mySL.AddObject ('Test', TObject (i));
  // ...
end;