Text in Stringgrid sortieren

[Pr0g]

Hm, dass es nicht geht wundert micht. Wenn ich genau die Codes aus meinem ersten und den Text aus deinem ersten Post nehme, dann klappt es bei mir (siehe angehängtem Screenshot). Ich habe die Prozedur ein bisschen verändert, damit auch die "//////" eingetragen werden:

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] = AnsiUpperCase(s[1])) or (s[1] = '/') then //großgeschrieben
    begin
      SG.Cells[0, c] := s;
      Inc(c);
    end else                                             //kleingeschrieben
      SG.Cells[1, i-c] := s;
  end;
end;