RichEdit DataField zuweisen

Jakane · Beiträge: 257

Hallo liebe Delphi-Helfer

Für eines meiner Programme benötige ich ein RichEdit, dem erst wärend des Programmlaufs die Daten gegeben werden,
weil erst dann der Ursprung der Daten bekannt ist.
Ich habe schon einiges versucht, bekomme aber immer Fehlermeldungen wenn er das DataField zuweisen soll.

Die Funktion muss nicht so bleiben, das RichEdit muss nur zwingend die Daten selbst ziehen.

markieren

Delphi-Quelltext

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

function TFuP_R._Funktion(Query: TIBQuery; Datenfeld: String): String;
var
  RichEdit : TDBRichEdit;
  DataSource : TDataSource;
begin
  DataSource:= TDataSource.Create(Self);
  DataSource.DataSet:= Query;
  RichEdit:= TDBRichEdit.Create(Self);
  RichEdit.DataSource:= DataSource;
  ShowMessage('1');
  RichEdit.DataField:= ?;
  ShowMessage('2');
  Result:= RichEdit.Text;
end;

Hoffe jemand hat eine Idee

Danke im voraus.

Moderiert von Narses: Delphi-Tags hinzugefügt

Sybok Factor · Verfasst: Mi 23.05.12 09:49

Also wenn du eine Delphi Version > Delphi 2010 hast, dann ist DataField als WideString definiert. Daher kann das so nicht funktionieren.
Wenn du Richedit tatsächlich zur Runtime erzeugt, musst du es dann nicht noch irgendwie in der Größe einrichten?

_________________
Jetzte michse verstehen dein Problem.

Jakane · Beiträge: 257

Sybok Factor hat folgendes geschrieben :

Also wenn du eine Delphi Version > Delphi 2010 hast, dann ist DataField als WideString definiert. Daher kann das so nicht funktionieren.
Wenn du Richedit tatsächlich zur Runtime erzeugt, musst du es dann nicht noch irgendwie in der Größe einrichten?

Ich habe Delphi 5.
Wie in der Größe einrichten?
Wenn ich ein RichEdit auf mein Formular packe und DataSource und DataField manuell zuweise klappt alles.
Mehr braucht er nicht um dann zu tun was er soll.
Aber ich will nicht immer ein RE auf meinem Formular haben.

Sybok Factor · Verfasst: Mi 23.05.12 11:57

Falls das nachfolgende nicht hilft, dann poste bitte die genaue Fehlermeldung.

1. Größe einrichten:
Damit meinte ich, dass du nach dem Erzeugen des RE doch ein Platzierung vornehmen musst, oder nicht?

markieren

Delphi-Quelltext

1:
2:
3:

RichEdit.Left := 8;
ReichEdit.Top := 86;
...

2. Fehler:
Was mir noch einfällt:
Kann es sein, dass der Fehler durch query hervorgerufen wird und nicht durch DataField?
Ansonsten versuche das:

markieren

Delphi-Quelltext

1:
2:
3:

If query.active then query.Close;
RichEdit.DataField := Datenfeld;
query.open;

Sonst s.o.

_________________
Jetzte michse verstehen dein Problem.

Jakane · Beiträge: 257

Ich habe beides ausprobiert, bekomme den Fehler aber immernoch

"Im Projekt xxx.exe ist eine Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Element '' hat kein übergeordnetes Fenster'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen."

Sybok Factor · Verfasst: Do 24.05.12 08:17

Deine Fehlermeldung hat ü b e r h a u p t nichts mit der Datenanbindung zu tun! Beim nächsten Mal bitte gleich die Fehlermeldung mitliefern.
Du bekommst die Fehlermeldung weil eine der von dir zur Laufzeit erzeugten Komponenten keinen Parent (oder Owner) zugewiesen bekommt. Vermutlich ist es das Richedit.
Abhilfe sollte sein:

markieren

Delphi-Quelltext

1:	RichEdit.Parent := Self;

Self ggf. gegen das Control ersetzen, auf dem RichEdit abgelegt werden soll.

_________________
Jetzte michse verstehen dein Problem.

jasocul · Verfasst: Do 24.05.12 09:09

Jakane hat folgendes geschrieben :

Aber ich will nicht immer ein RE auf meinem Formular haben.

Ähm, dann kann man auch die Eigenschaft Visible auf false setzen.

Alerdings frage ich mich, warum du überhaupt ein TDBRichEdit benötigst. Deine Funktion liefert doch nur den String zurück. Kannst du nicht einfach den String direkt aus dem Datenfeld lesen?

markieren

Delphi-Quelltext

1:	DeineVariable := DeinQuery.FieldByName('DeinDatenfeld').AsString;

Jakane · Beiträge: 257

Sybok Factor hat folgendes geschrieben :

Deine Fehlermeldung hat ü b e r h a u p t nichts mit der Datenanbindung zu tun! Beim nächsten Mal bitte gleich die Fehlermeldung mitliefern.
Du bekommst die Fehlermeldung weil eine der von dir zur Laufzeit erzeugten Komponenten keinen Parent (oder Owner) zugewiesen bekommt. Vermutlich ist es das Richedit.
Abhilfe sollte sein:

markieren

Delphi-Quelltext

1:	RichEdit.Parent := Self;

Self ggf. gegen das Control ersetzen, auf dem RichEdit abgelegt werden soll.

Auf die Idee kam ich schon selbst, aber das hilft auch nicht. Weder Self noch der Name des Formulars.

Moderiert von Narses: Beiträge zusammengefasst

jasocul hat folgendes geschrieben :

Jakane hat folgendes geschrieben :

Aber ich will nicht immer ein RE auf meinem Formular haben.

Ähm, dann kann man auch die Eigenschaft Visible auf false setzen.

Alerdings frage ich mich, warum du überhaupt ein TDBRichEdit benötigst. Deine Funktion liefert doch nur den String zurück. Kannst du nicht einfach den String direkt aus dem Datenfeld lesen?

markieren

Delphi-Quelltext

1:	DeineVariable := DeinQuery.FieldByName('DeinDatenfeld').AsString;

Wenn ich es auf Visible:= False setzte ist das RE trotzdem auf dem Formular auch wenn ich es nicht sehe.
Das mit dem String ist zwar richtig, aber das RE entfernt dabei die RTF Formatierung, die manche Datenbankfelder haben.

Und eine wirklich effektive und sichere Möglichkeit die RTF Formatierung zu entfernen habe ich nicht gefunden, ausser das Arbeiten für RE.

bummi · Verfasst: Fr 25.05.12 15:48

ich würde es so umsetzen ....

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Function GetRichEditFieldAsString(f:TField):String;
var
 re:TrichEdit;
 ms:TMemoryStream;
begin
   if f is TBlobField then
      begin
       re := Trichedit.Create(nil);
       re.Visible := False;
       re.Parent := Application.MainForm;
       ms:=TMemoryStream.Create;
       try
         TBlobField(f).SaveToStream(ms);
         ms.Position := 0;
         re.Lines.LoadFromStream(ms);
         Result := re.Lines.Text;
       finally
         re.Free;
         ms.Free;
       end;
      end;
end;


procedure TForm5.Button1Click(Sender: TObject);

begin
   Showmessage(GetRichEditFieldAsString(Adodataset1.FieldByName('Einleitung')));
end;

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Jakane · Beiträge: 257

Funktioniert, danke

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme