Textbausteine für Belege anlegen

[LOMBI]

Hallo,

ich möchte gerne für spätere Belege in der ABSTabelle Textbausteine anlegen.
Leider klappt das irgendwie nicht.

Delphi-Quellcode:

with QueryTexte do
    begin
    if not Locate('TxtNr', 1, []) then
    with FmTxte, MemReAnf do
    begin
      Append;
      FieldByName('TxtNr').AsInteger := 1;
      FieldByName('Zeile1').AsString := Lines[1];
      FieldByName('Zeile2').AsString := Lines[2];
      FieldByName('Bezeichnung').AsString := 'Rechnung -Anfang-';
      Post;
    end;
    ...

Gruß
Lombi

[mkinzler]

Was funktioniert nicht?
Kommt ein Fehler?
Warum die Typkonvertierung mit .asXXX?

[LOMBI]

Die ABSTabelle wird angelegt, jedoch gelingt es mir nicht auf der Form Texte
einen Eintrag ins Memo zu speichern. Beginnen die Lines[] bei 0 od 1?

[mkinzler]

Zitat:

Die ABSTabelle wird angelegt, jedoch gelingt es mir nicht auf der Form Texte
einen Eintrag ins Memo zu speichern.

Der Code speichert auch den Inhalt des Memos in die Tabelle.

Zitat:

Beginnen die Lines[] bei 0 od 1?

0

[LOMBI]

... aber warum dann die Zugriffsverletzung bei:

FieldByName('Zeile1').AsString := Lines[1];

[mkinzler]

Wieviele Zeilen hat den das Memo?

[LOMBI]

Die Memos haben jeweils 4 Zeilen, Lines[0] - [3].

[mkinzler]

Und wenn du alles aussschreibst?
QueryTexte.FieldByName('Zeile1').Value:= MemReAnf.Lines[1];

[LOMBI]

Leider auch nicht!

[mkinzler]

Wie sieht den die Abfrage aus?