Put Text und Zahlen in den Feldern

Question

Mit FastReport, wie ich Text und Numbers aus der Datenbank in den Feldern wie setzen kann:

|_|_|_|_|_|_|_|_|_|_| 

So "Sami" es werden:

und die Das gleiche gilt auch für Zahlen, ich versuche es mit TfrxLineView zu tun, aber ich scheitere.

Answer 1

Nehmen Sie den einfachen Weg:

• Drop 4 TfrxMemoView Komponente in Ihrem Bericht (oder, wie Sie benötigen) wie:

• In OnPreview Ereignis des Berichts, stellen Sie Ihren Code zum Beispiel:

  procedure TForm1.frxReport1Preview(Sender: TObject); 
  var Str : WideString; I : Integer; Mem : TfrxMemoView; 
  begin 
      Str := 'Sami'; // Or get it from query/table (database) 
  
      // Find the TFrxMemoView Component and set in it the String you want 
      for I := 1 to 4 do 
      begin 
       Mem := frxReport1.FindObject('M'+IntToStr(I)) as TfrxMemoView; 
       Mem.Text := Str[I]; 
      end; 
      end; 
  

• Das Ergebnis wird sein:

Update:

Sie kann es auch programmgesteuert tun als:

var RT : TfrxBand; 
    Mem : array [1..100] of TfrxMemoView ; 
    i : Byte; 
    Name : WideString; 
begin 
    // Find the band 
    RT := frxReport1.FindObject('RT') as TfrxBand; 
    // Set the String 
    Name := 'DELPHI FAST REPORT'; 
    for I := 1 to Length(Name) do 
    begin 
     Mem[i] := TfrxMemoView.Create(RT); 
     Mem[i].Text := Name[i]; 
     Mem[i].Font.Style := [fsBold]; 
     Mem[i].Frame.Width := 2; 
     Mem[i].Height := 20; 
     Mem[i].AutoWidth := False; 
     Mem[i].HAlign := haCenter; 
     Mem[i].Frame.Typ := [ftLeft , ftBottom , ftRight]; 
     Mem[i].Width := 20; 
     if i =1 then 
     Mem[i].Left := 0 
      else 
      Mem[i].Left := Mem[i-1].Left + 5 + 15; 
    end; 
    frxReport1.ShowReport(); 
end; 

Das Ergebnis ist:

Answer 2

Es gibt kein vorgefertigtes Steuerelement zum Anzeigen von Zeichen in Boxen, wenn Sie danach fragen. Deshalb müssen Sie dies selbst auf der von Ihnen gewählten Leinwand malen.

Hier ist ein Beispiel dafür, wie es in einem TPaintBox zu tun, ist pbText hier ein String-Feld der Demo-Form, und hält den Text im Malkasten angezeigt werden:

procedure TForm17.PaintBox1Paint(Sender: TObject);var 
    i, n, x, y: integer; 
    siz: TSize; 
    pb: TPaintBox; 
begin 
    n := 10; // character cells 
    pb := Sender as TPaintBox; 
    siz := pb.Canvas.TextExtent('Wp'); 

    // draw character cells 
    x := 4; y := siz.cy+2; 
    for i := 0 to n do 
    begin 
    pb.Canvas.MoveTo(i * siz.cx + x, 0); 
    pb.Canvas.LineTo(i * siz.cx + x, y); 
    end; 
    pb.Canvas.MoveTo(x, y); 
    pb.Canvas.LineTo(n * siz.cx + 4, y); 

    // draw characters horizontally in center of box 
    for i := 1 to Length(pbText) do 
    begin 
    x := (4 + (i-1)*siz.cx + (siz.cx - pb.Canvas.TextWidth(pbText[i])) div 2); 
    y := 0; 
    pb.Canvas.TextOut(x, y, UpperCase(pbText[i])); // force upcase 
// pb.Canvas.TextOut(x, y, pbText[i]);   // or don't 
    end; 
end; 

Und, es zu benutzen

procedure TForm17.Button1Click(Sender: TObject); 
begin 
    pbText := 'Sami Wiim'; 
    PaintBox1.Invalidate; 
end; 

Answer 3

Sehr einfach und und ein wenig hässlich Methode, dies zu tun.

1. In Fast-Report:

-ort ein Textobjekt wie folgt aus: [TEST_STR];

-set text style zu Unterstreichen;

2.In Delphi

-make Funktion einen String formatiert Zeichenfolge zu konvertieren. Zum Beispiel:

Eingang: SAMI

Ausgang: | S | A | M | I |

-in OnGetValue Veranstaltung von Fastreport diese Funktion aufrufen:

procedure TMainForm.frxReport1GetValue(const VarName: string; 
    var Value: Variant); 
begin 
    if VarName = 'TEST_STR' then Value := MyFunctionToFormatStr('SAMI'); 

end; 

Das ist alles.

Das Ergebnis wie folgt aussehen: