AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Stringgrid sortieren

Ein Thema von Melmier · begonnen am 22. Sep 2012 · letzter Beitrag vom 24. Sep 2012
Antwort Antwort
Melmier

Registriert seit: 22. Sep 2012
3 Beiträge
 
#1

Stringgrid sortieren

  Alt 22. Sep 2012, 12:05
Guten Tag,

da ich nicht mehr weiterkomme hoffe ich hier Hilfe zu finden. Mein Problem ist, eine Stringgrid nach Größe der Integer der festgelegten zu sortieren (soweit kein Problem), aber den Skript den ich benutze sortiert nur nach dem ersten Wert der Variable, also von z.B. "15" liest dieser nur die "1" ein, und somit ist "15" weniger als "3", da "3" größer ist als "1".
Ich möchte, dass in der Tabelle die "15" vor der "3", "5", oder "8" steht.
Ich weiß dass es immer ärgerlich ist einen fertigskript zu verwenden, und andere zu bitten diesen zu überschauen, vor allem weil dies enorm zeitaufwändig ist. FAlls irgendjemand trotzdem bereit wäre, wäre ich enorm dankbar! Im folgendem der Skript (von mir auch schon leicht angepasst, wegen auf- und abwärtssortierung):

Zitat:
procedure SortStringGrid(var GenStrGrid: TStringGrid; ThatCol: Integer);
const
// Define the Separator
TheSeparator = '@';
var
CountItem, I, J, K, ThePosition: integer;
MyList: TStringList;
MyString, TempString: string;
begin
// Give the number of rows in the StringGrid
CountItem := GenStrGrid.RowCount;
//Create the List
MyList := TStringList.Create;
MyList.Sorted := False;
try
begin
for I := 1 to (CountItem - 1) do
MyList.Add(GenStrGrid.Rows[I].Strings[ThatCol] + TheSeparator +
GenStrGrid.Rows[I].Text);
//Sort the List
Mylist.Sort;

for K := 1 to Mylist.Count do
begin
//Take the String of the line (K – 1)
MyString := MyList.Strings[(K - 1)];
//Find the position of the Separator in the String
ThePosition := Pos(TheSeparator, MyString);
TempString := '';
{Eliminate the Text of the column on which we have sorted the StringGrid}
TempString := Copy(MyString, (ThePosition + 1), Length(MyString));
MyList.Strings[(K - 1)] := '';
MyList.Strings[(K - 1)] := TempString;
end;

// Refill the StringGrid
For J := (CountItem-1) Downto 1 Do
GenStrGrid.Rows[GenStrGrid.Rowcount-J].Text := MyList.Strings[(J - 1)];
end;
finally
//Free the List
MyList.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// Sort the StringGrid1 on the second Column
// StringGrid1 nach der 1. Spalte sortieren
SortStringGrid(StringGrid1, 1);
end;


Schon im voraus, vielen Dank für jeden der sich die Mühe macht das allein durchzulesen, Entschuldigung für etwaige Fehler.
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#2

AW: Stringgrid sortieren

  Alt 22. Sep 2012, 12:47
Um ein StringGrid richtig zu sortieren braucht man mehr als eine Funktion, denn mit der Zeit steigen die Ansprüche.
Neben der Sortierrichtung möchte man zum Beispiel auch angeben, ob die Daten als String, Zahl oder Datum betrachtet werden sollen.
Oder wenn man die Sortierspalte als Zahl betrachtet: was soll passieren wenn eine Zelle keine Zahl enthält?

Diesen Funktionsumfang bekommt man mit einer Funktion nicht sauber abgedeckt; man braucht schon mehrere Funktionen, die zusammenarbeiten.
Mehrere Funktionen, die mit den gleichen Daten arbeiten, das wäre dann eine Klasse.
  Mit Zitat antworten Zitat
Melmier

Registriert seit: 22. Sep 2012
3 Beiträge
 
#3

AW: Stringgrid sortieren

  Alt 22. Sep 2012, 13:09
Vielen Dank für die sehr gut erklärende Antwort!
Ich habe gehofft mir komplexe Probleme zu ersparen, weil immer eine Integer Ganzzahl>0 in der Spalte ist. Schade wenn das nicht möglich ist.
Ich bin ein wenig überrascht dass man hier als Neuling trotzdem so verständnisvoll behandelt wird
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#4

AW: Stringgrid sortieren

  Alt 24. Sep 2012, 02:06
Ich hänge hier mal eine etwas ältere Komponente "Sort A StringGrid" an.
Wenn ich mir den Sourcecode so anschaue, naja, der wäre wohl noch verbesserungsfähig aber leistet was er verspricht.
Angehängte Dateien
Dateityp: zip SASG.zip (10,5 KB, 62x aufgerufen)
  Mit Zitat antworten Zitat
Melmier

Registriert seit: 22. Sep 2012
3 Beiträge
 
#5

AW: Stringgrid sortieren

  Alt 24. Sep 2012, 17:41
Nochmal danke!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf