Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
2. Dez 2003
Ach Luckie, ich hab gelernt und meinen Code mal mit Val etwas optimiert. :mrgreen:
Ich weiß nicht ob es CodeLib-tauglich ist, daher habe ich auch noch schnell den deutsch/englisch-mischmasch entfernt. :wink:
http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * *...
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
2. Dez 2003
Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,
nach Zahlen sortieren => vorm/beim sortieren die Strings z.B. in Integer umwandeln.
Procedure SortStringGrid(SG: TStringGrid; SortCol: Byte; inclFixedCol: Boolean = True);
Var FC, I, I2, I3, Z, Z2, C, C2: Integer;
S: String;
Begin
If (SortCol >= SG.ColCount) or (inclFixedCol and (SortCol < SG.FixedCols)) Then Exit;