Text in Stringgrid sortieren

[Pr0g]

Hier ist mal ein Beispiel. Du brauchst ein TMemo, TButton und ein TStringGrid. Dann fügst du folgende Prozedur in dein Projekt ein:

Delphi-Quellcode:

procedure WriteToStringGrid(Lines: TStrings; SG: TStringGrid);
var
  i, c: Integer;
  s: String;
begin
  c := 0;
  for i := 0 to Lines.Count-1 do
  begin
    SG.RowCount := SG.RowCount+1;
    s := Lines[i];
    if s[1] = '/' then
    begin
      //rote Spalte
    end else begin
      if s[1] = AnsiUpperCase(s[1]) then //großgeschrieben
      begin
        SG.Cells[0, c] := s;
        Inc(c);
      end else                           //kleingeschrieben
        SG.Cells[1, i-c] := s;
     end;
  end;
end;

Und im OnClick-Ereignis des Buttons führst du folgenden Code aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with StringGrid1 do
  begin
    ColCount := 2; //zwei Spalten
    RowCount := 0; //null Zeilen
  end;
  WriteToStringGrid(Memo1.Lines, StringGrid1);
end;

Nur das mit der roten Spalte habe ich nicht verstanden. Wo soll die denn hin?

MfG Pr0g