Einzelnen Beitrag anzeigen

nat

Registriert seit: 10. Nov 2005
216 Beiträge
 
RAD-Studio 2009 Pro
 
#1

Re: Zahlen ohne Array sortieren?

  Alt 12. Mai 2006, 20:49
also ich würde die eingaben in ner TStringList "puffern" und dann nur
zum anzeigen dann an ne listbox oder n memo binden.

Delphi-Quellcode:
var
  List: TStringList;

implementation

function SortFunc(List: TStringList; Index1, Index2: Integer): Integer;
var
  a, b: integer;
begin
  a := StrToInt(List[Index1]);
  b := StrToInt(List[Index2]);

  result := a - b;
end;

procedure TForm1.ButtonAddClick(Sender: TObject);
begin
  List.Add(Edit1.Text);
  List.CustomSort(SortFunc);
  Memo1.Lines := List;
end;

initialization
  List := TStringList.Create;
finalization
  List.free;
end.
  Mit Zitat antworten Zitat