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