Einzelnen Beitrag anzeigen

Foxi1896

Registriert seit: 5. Jun 2013
54 Beiträge
 
FreePascal / Lazarus
 
#1

edits sortier darstellen?

  Alt 1. Jul 2013, 15:29
Hey,

Ich möchte diese Edit´s sortieren. Bzw beim kleinsten anfangen und dann fortlaufen.
z.B.
12 15 16 10 12,5 13,1 18 sind die edits
und die sollen dann so angezeigt werden:
10 12,5 13,1 18 12 15 16 (angefangen beim kleinsten)

Delphi-Quellcode:
begin
 inc(n_wert);
 if n_wert=1 then Edit3.Text:= FormatFloat('0.00',y_wert);
 if n_wert=2 then Edit4.Text:= FormatFloat('0.00',y_wert);
 if n_wert=3 then Edit5.Text:= FormatFloat('0.00',y_wert);
 if n_wert=4 then Edit6.Text:= FormatFloat('0.00',y_wert);
 if n_wert=5 then Edit7.Text:= FormatFloat('0.00',y_wert);
 if n_wert=6 then Edit8.Text:= FormatFloat('0.00',y_wert);
 if n_wert=7 then Edit9.Text:= FormatFloat('0.00',y_wert);
 if n_wert=8 then Edit10.Text:=FormatFloat('0.00',y_wert);
 if n_wert=9 then Edit15.Text:=FormatFloat('0.00',y_wert);
 if n_wert=9 then
  Mit Zitat antworten Zitat