Forum: Sonstige Fragen zu Delphi
by Kostas,
5. Mär 2014
jo, jetzt funkts.
Fragt sich nur was ReadAllText macht, ich habe nicht nachgeschaut. :-)
procedure TfrmReport.SetTextFileInMemoView(ObjectName,Datei:String);
begin
with TfrxMemoView(frxreport1.findobject( ObjectName )) do
begin
if FileExists(Datei) then
Forum: Sonstige Fragen zu Delphi
by Kostas,
5. Mär 2014
Ah, jetzt habe ich verstanden. Wir reden aneinander vorbei.
Ansitext gibt es schon und ist vom Typ AnsiString. Dieser Typ hat keine Methode um direkt eine Datei zu laden
wie AnsiString.LoadFromFile. Deshalb muss ich über eine TStringList gehen. Das funktioniert auch einwandfrei.
Gruß Kostas
Forum: Sonstige Fragen zu Delphi
by Kostas,
5. Mär 2014
Du erzeugst das Objekt vermutlich im Reporter da du auf das Band Object als Owner angibst oder du holst es vorher.
Wenn das Objekt MemoView instanziiert wird, gibt es das Property "Ansitext"
Bei mir ist es so dass ich über den Designer ein Report erstelle und zur Laufzeit wenn der Event OnBeginDoc feuert
das MemoView über dessen Namen abfrage und das Textfile lade.
with...
Forum: Sonstige Fragen zu Delphi
by Kostas,
5. Mär 2014
Die Eigenschaft Ansitext gibt es nicht bei Memo und auch nicht bei lines.
Forum: Sonstige Fragen zu Delphi
by Kostas,
5. Mär 2014
Ich verwende aktuell Fastreport Version 4.13.3
Werde ich gleich mal aktualisieren und danach nochmals testen.
Gruß Kostas
Forum: Sonstige Fragen zu Delphi
by Kostas,
5. Mär 2014
Hallo Zusammen,
sorry dass der Thread so aus dem Ruder läuft :-(
Zur Sache wollte ich noch berichten, ich habe alle folgende Varianten nacheinander
ausprobiert doch ohne Erfolg. Ich sehe immer Chinesische Zeichen.
Es funktioniert nur über den Umweg einer TStringList.
...
Forum: Sonstige Fragen zu Delphi
by Kostas,
4. Mär 2014
Dankeschön für den Hinweis.
Das mit den Kommentaren ist so eine dumme Gewohnheit. Ich mache das so automatisch das ich es nicht merke.
In der Zeit überlege ich völlig andere Dinge. :-)
Das mit dem try finally ist natürlich Pflicht und hatte ich auch eingebaut. Ich wollte nur schnell posten damit
sich niemand unnötig mit dem Thread beschäftigt.
Nochmals herzlichen Dank für den Hinweis ich...
Forum: Sonstige Fragen zu Delphi
by Kostas,
4. Mär 2014
Sorry, habe die Lösung gefunden.
Den Text einfach vorher in ein TStringList laden dann gehts.
{--------------------------------------------------------------------}
{}procedure TfrmReport.SetTextFileInMemoView(ObjectName,Datei:String);
{--------------------------------------------------------------------}
var st:TStringList;
begin
with TfrxMemoView(frxreport1.findobject( ObjectName...