Fastreport eine Textdatei laden

[Kostas]

Zitat von Union:

Memo.Ansitext zuweisen?

Die Eigenschaft Ansitext gibt es nicht bei Memo und auch nicht bei lines.

[Union]

Zitat von Kostas:

Zitat von Union:

Memo.Ansitext zuweisen?

Die Eigenschaft Ansitext gibt es nicht bei Memo und auch nicht bei lines.

Seltsam, bie mir läuft folgender Code:

Delphi-Quellcode:

frComp := TfrxMemoView.Create(frBand);
frComp.Font.Charset := RUSSIAN_CHARSET;
// Unicode: Види по спецификациjа на оригиналната амбалажа. 
frComp.AnsiText := 'Âèäè ïî ñïåöèôèêàöèjà íà îðèãèíàëíàòà àìáàëàæà.'; // Siehe Angaben auf der Original-Verpackung

[Kostas]

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 TfrxMemoView(frxreport1.findobject( ObjectName )) do Innerhalb von With... ist das Property Ansitext nicht verfügbar. Das ist mir so auch noch nie begegnet.

Gruß Kostas

[Union]

Das geht bei mir genauso:
TFrxMemoView(frxVbsLabel.FindComponent('qrlHerstell')).Ansitext := 'Ïðîèçâîäèòåë:' // Производител: ;

[Kostas]

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

[himitsu]

Delphi-Quellcode:

uses
  IOUtils;

TFrxMemoView(frxVbsLabel.FindComponent('qrlHerstell')).Text := TFile.ReadAllText('test.txt');

// oder
TFrxMemoView(frxVbsLabel.FindComponent('qrlHerstell')).Text := TFile.ReadAllText('test.txt', TEncoding.ANSI);

[Kostas]

jo, jetzt funkts.

Fragt sich nur was ReadAllText macht, ich habe nicht nachgeschaut.

Code:

procedure TfrmReport.SetTextFileInMemoView(ObjectName,Datei:String);
begin
  with TfrxMemoView(frxreport1.findobject( ObjectName )) do
  begin
    if FileExists(Datei) then
    begin
      Visible := true;
      AnsiText := TFile.ReadAllText(Datei, TEncoding.ANSI);
    end;
  end;
end;

Besten Dank an alle.
So werde ich es in Zukunft anwenden.
Gruß Kostas

[himitsu]

TFile.ReadAllText gibt es natürlich als Unicode zurück (Result = String) und der Compiler sollte jetzt meckern, daß da eventuell ein Datenverlust eintreten könnte (UnicodeString => AnsiString).

Drum hatte ich auch einfach mal "blind" .Text verwendet, für die Zuweisung.

Im Prinzip macht er das Selbe, wie auch die TStringList beim Laden.
Die Datei in einen Puffer laden, Diesen via TEncoding decodieren und dann den UnicodeString an das Result übergeben.
(die TStringList zerlegt dann nur noch den UnicodeString in einzelne Zeilen)