Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#10

Re: Tabelle mit eigenem Text drucken

  Alt 28. Jan 2007, 12:07
Hallo Marcel,

willst du die Daten mit PrintGrid() drucken, dann musst du deine Werte in einem Grid zwischenspeichern:

Delphi-Quellcode:
var
  iRow: Integer;
begin
  with StringGrid do
  begin
    // index für neue Zeile merken
    iRow := RowCount;
    // neue Zeile anfügen
    RowCount := Succ(RowCount);
    // Eingabe in die erste Spalte nach fester Spalte
    Cells[FixedCols, iRow] := Trim(EingabeEdit.Text);
    // Ergebnis in nächste Spalte
    Cells[Succ(FixedCols), iRow] := ErgebnisString;
  end;
end;
Dabei musst du auf die Randbedingungen achten, welche in PrintGrid() versteckt sind und die ich dir bereits geschrieben habe.

Willst du deine Daten mit PrintNamedValues() drucken, dann müssen sie in einer StringList zwischengespeichert werden:

Delphi-Quellcode:
var
  Tabelle: TStrings; // Tabelle := TStringList.Create;
begin
  Tabelle.Values[Trim(EingabeEdit.Text)] := ErgebnisString;
end;
Freundliche Grüße
  Mit Zitat antworten Zitat