Entwickler-Ecke :: Thema anzeigen

bruce185 - Sa 10.09.05 20:39
Titel: Tabelle einfügen

hi,
ich habe ein Trainingsplan in Delphi 7 geschrieben, und ich habe ein Button eingefügt für Druckvorschau, wenn ich da drauf klicke, dann öffnet sich ein neues Fenster mit RichEdit, nur wie kann ich Tabellen in RichEdit einfügen, geht das? ich bin euch für jede hilfe sehr dankbar, danke schonmal. :)

Andreas

Moderiert von Christian S.: Topic aus CLX / Delphi Language (Object-Pascal) verschoben am So 11.09.2005 um 13:36

bruce185 - Mo 12.09.05 23:52

danke für die Antwort, das ist so, ich habe ein Trainingsplan in Delphi geschrieben, das sieht folgendermasen aus:

http://www.1200kb.net/uploadimg/file351603680.bmp

und wenn ich auf Druckvorschau klicke dann öffnet sich ein eues Fenster mit TRichEdit, und wenn man auf Drucken klickt, dann soll dass so ähnlich ausgedruckt werden wie auf das bild geformt, geht das?, ich bin euch sehr dankbar für die weitere hilfen :)

Andreas

Krumnix - Fr 23.09.05 13:48

Spaceguide hat folgendes geschrieben:

TRichedit kann soweit ich weiss keine Tabellen. Probiers mal mit THTML.

Doch kann es ;-)

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

 MyRTFList := TStringList.Create;

 MyMS := TMemoryStream.Create;
  try
   MyRTFList.Add('\par\trowd\trgaph50\cellx610\cellx2260\cellx2820\cellx7920\cellx8900\cellx10000\intbl Überschrift Spalte 1\cell Überschrift Spalte 2\cell Überschrift Spalte 3\cell Überschrift Spalte 4\cell Überschrift Spalte 5\cell Summe\cell\row');

   MyRTFList.Add('\par\intbl ' + Form1.Edit1.Text + '\cell ' + Form1.Edit2.Text + '\cell ' + Form1.Edit3.Text + '\cell\fs16 ' + Form1.Edit4.Text + '\cell\fs20 ' + Form1.Edit5.Text + '\cell ' + Form1.Edit6.Text + '\cell\row');

 MyRtfList.SaveToStream(MyMS);
 MyMS.Seek(soFromBeginning,0);
 RichEdit1.PlainText := False;
 RichEdit1.Lines.LoadFromStream(MyMS);

Lannes - Fr 23.09.05 17:01

Hallo,

Krumnix hat folgendes geschrieben:

Doch kann es ;-)

das stimmt, ist aber abhängig vom Betriebssystem bzw. der genutzten riched**.dll

Mit Deinem Code wird das nicht funktionieren, Ergebnis:

Zitat:

---------------------------
Project1
---------------------------
Zugriffsverletzung bei Adresse 74DEE249 in Modul 'RICHED20.dll' Lesen von Adresse 00000004.
---------------------------
OK
---------------------------

Mindestanforderungen um eine RTF mit Tabelle auf dem Wege anzuzeigen:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var MyMS: TMemoryStream;
    MyRTFList : TStringList;
begin
  MyRTFList := TStringList.Create;
  MyMS := TMemoryStream.Create;
  try
   MyRTFList.Add('{\rtf1');// <--- !! fehlt die Zeile >> Zugriffsverletzung.
   MyRTFList.Add('\par\trowd\cellx610\cellx2260\cellx2820\cellx7920\cellx8900\cellx10000\intbl Überschrift Spalte 1\cell Überschrift Spalte 2\cell Überschrift Spalte 3\cell Überschrift Spalte 4\cell Überschrift Spalte 5\cell Summe\cell\row');
   MyRTFList.Add('\par\intbl ' + Form1.Edit1.Text + '\cell ' + Form1.Edit2.Text + '\cell ' + Form1.Edit3.Text + '\cell\fs16 ' + Form1.Edit4.Text + '\cell\fs20 ' + Form1.Edit5.Text + '\cell ' + Form1.Edit6.Text + '\cell\row');
   MyRTFList.Add('}');// <--- !! alle geöffneten geschweiften Klammern müssen geschlossen werden
                      //         fehlt die Zeile, wird nur der RTF-Code angezeigt.
   MyRtfList.SaveToStream(MyMS);
   MyMS.Seek(soFromBeginning,0);
   RichEdit1.PlainText := False;
   RichEdit1.Lines.LoadFromStream(MyMS);
  finally
    MyRTFList.Free;
    MyMS.Free;
  end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!