TRichEdit Einzelne Zeile Formatieren

[5etH]

Um euch das Problem einmal näher darzustellen werde ich hier Prozedur Aufruf und Ergebnis mal posten

Prouedur

Delphi-Quellcode:

procedure AddRow2(RE:TRichEdit;Text:String;Align:TAlignment);
  begin
    Re.Lines.Add(Text);
    Re.SelStart:=length(RE.Text)-1;
    RE.Paragraph.Alignment:=Align
  end;

Aufruf

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var
  I: Integer;
  y: Integer;
  a: Integer;
  X: Integer;
begin
summe := 0;
counter := 1;
richedit1.Clear;
richedit2.Clear;
for X := 0 to Listbox1.items.Count - 1 do
begin
for I := 1 to stringgrid1.RowCount - 1 do
begin
  for y := 0 to stringgrid1.ColCount - 1 do
  begin
    if (stringgrid1.Cells[y,i] = (listbox1.Items[X])) and (stringgrid1.Cells[y+1,i+1] <> ' ') then
    begin
      ADDROW2(Richedit1,(InttoStr(counter) +'.'+#9+listbox1.Items[X]),TaLeftJustify);
      ADDROW2(Richedit1,(' / ' +stringgrid1.Cells[y+3,i]),TaRightJustify);
      ADDROW2(Richedit2,(InttoStr(counter) +'.'+#9+listbox1.Items[X]),TaLeftJustify);
      ADDROW2(Richedit2,(' / ' +stringgrid1.Cells[y+3,i]),TaRightJustify);

      summe := (summe + StrToFloat(stringgrid1.Cells[y+3,i]));
      inc(counter);
      a := i+1;
      while (stringgrid1.cells[3,a] <> ' ') do
      begin
         if stringgrid1.cells[3,a] = 'FREE' then
         begin
          ADDROW(Richedit1,(stringgrid1.cells[4,a]),TaLeftJustify);
          richedit2.Lines.Add(#13);
         end
         else
         begin
         ADDROW2(Richedit1,(#9+stringgrid1.cells[3,a] + '  ' + stringgrid1.cells[4,a]),TaLeftJustify);
         ADDROW2(Richedit2,(#9+stringgrid1.cells[3,a]),TaLeftJustify);
         end;
        inc(a);
      end;
      richedit1.lines.Add(#13);
      richedit2.lines.Add(#13)
    end;

  end;
end;
end;
 ADDROW2(Richedit1,('_____/'+FloatTOStr(summe)),TaRightJustify);
 ADDROW2(Richedit2,('_____/'+FloatTOStr(summe)),TaRightJustify);
end;

Ergebnis (Habe jetzt nur eins der beiden Richedits gepostet)

Delphi-Quellcode:

1.   (F) In welchem FL befindet sich die generelle Grenze zwischen dem oberen und unteren Luftraum?
 / 1 (FALSCH)





                              (FALSCH)   2.   (MC) Welche der genannten Luftraumklassen sind in Deutschland implementiert?
 / 2 (FALSCH)
                                                                  (FALSCH)     a) Luftraumklasse A, B, C, D, E, F, G
   b) Luftraumklasse C, D, E, F, G 
   c) Luftraumklasse A, C, D, E, F, G
   d) Luftraumklasse C, D, E, F, G, H,


3.   (MC) Welcher FL definiert die Obergrenze des oberen kontrollierten Luftraum?
 / 1 (FALSCH)
                                                                                            (Falsch)        a) FL 600
   b) FL 100
   c) unlimited
   d) FL 245


4.   (F) Ab welchem FL beginnt die Flugplanpflicht?
 / 1  (FALSCH)






                                                                                                                 _____/5

Alles Was mit (FALSCH) beschriftet ist sollte jeweils auf der Anderen Seite Bündig sein