StringGrid mit Daten füllen und farblich Darstellen

[Jens Hartmann]

so, habe heute Nacht noch ein bißchen probiert und gespielt, und habe es zumindestens schon mal geschaft, die Daten ins Grid zu übernehmen.

Allerdings so wie im Anhang (Chaos).

Delphi-Quellcode:

Zelle := Zelle+1;
    for i := 0 to sl.Count -1 do
      begin
        sl[i] := trim(StringReplace(sl[i], #$D,  '',  [rfReplaceAll]));
        sl[i] := StringReplace(sl[i], #129, 'ü', [rfReplaceAll]);
        sl[i] := trim(StringReplace(sl[i], #132, 'ä', [rfReplaceAll]));
        sl[i] := StringReplace(sl[i], #142, 'Ä', [rfReplaceAll]);
        sl[i] := StringReplace(sl[i], #148, 'ö', [rfReplaceAll]);
        sl[i] := StringReplace(sl[i], #153, 'Ö', [rfReplaceAll]);
        sl[i] := StringReplace(sl[i], #154, 'Ü', [rfReplaceAll]);
        sl[i] := StringReplace(sl[i], #10#13, ' ', [rfReplaceAll]);
      if sl[i] <> '' then
          Zeile:='';
          Memo.Lines.Append(SL[I]);
          Speichermemo.Lines.Append(SL[I]);
          for IA := 0 to sl.Count -1 do
            begin
              sl[IA] := StringReplace(sl[IA], 'Ereignis', '', [rfReplaceAll]);
              sl[IA] := StringReplace(sl[IA], ':', '', [rfReplaceAll]);
              AppendStr(Ereignisnummer,(SL[IA]));
              Label7.Caption := Ereignisnummer;
              SGMBSerie.Cells[Zelle,Spalte] := Label7.Caption;
            end;
          MMUEZ2000.Clear;
      end;
    sl.Free;
    Finally;
        if Zelle >=6 then
        begin
        Spalte := Spalte+1;
        Zelle := 0;
        end;

MFG

Jens