|
Registriert seit: 10. Sep 2019
14 Beiträge
|
AW: Zahlen Soritieren nach größe
11. Sep 2019, 09:31
procedure TForm4.Button1Click(Sender: TObject);
var
z1, z2, z3, z4:string;
Stringlist : TStringlist;
begin
listbox1.Clear;
z1:=edit1.text;
z2:=edit1.text;
z3:=edit1.text;
z4:=edit1.text;
Stringlist := TStringList.create;
stringlist.Delimiter:=',';
stringlist.DelimitedText:=edit1.Text;
stringlist.Sorted:=true;
Stringlist.Sort;
listbox1.Items.Add(Stringlist[0]);
listbox1.Items.Add(Stringlist[1]);
listbox1.Items.Add(Stringlist[2]);
listbox1.Items.Add(Stringlist[3]);
end;
end.
Ich benutze Delphi 10.2
|