Memofeld in Tabelle schreiben?

[Borschti]

Hallo,

ich habe ein kleines Problem mit dem wegschreiben von Daten in eine Tabelle, und zwar versuche ich den Text eines Memofeldes in ein Feld in einer Tabelle zu schreiben.

Nur das will nicht so ganz klappen, ich gebe euch am besten mal meinen Code damit ihr besser nachvollziehen könnt was ich meine:

Delphi-Quellcode:

for i := 0 to vddTable1.RecordCount do
   begin
     Memo1.Clear;
     Memo1.Text := VddTable1.FieldByName('Langtext').asstring;
     zwischS1 := Memo1.Lines.Count + zwischS1;
     Memo2.Lines.Text := Trim(Memo1.text);
     zwischS2 := Memo2.Lines.Count;
     zaehler := zwischS1 - zwischS2;
     zaehler2 := 0;
     zaehler2 := zaehler2 + zaehler;
     VddTable1.Edit;
     VddTable1.FieldByName('Langtext').asString := Memo2.Text;
     VddTable1.Post;
     vddTable1.Next;
   end;

Ich denke es liegt an einer kleinigkeit die ich außer acht gelassen hab, ist so ziemlich das erste mal das ich was mit .post mache also ist es ganz gut möglich das ich was vergessen hab

Danke schonmal für alle Antworten.

mfg
Alex

[mkinzler]

Was für einen Typ hat das Datenbankfeld?

[marabu]

Hallo Alex,

du möchtest Leerzeilen vor und hinter LANGTEXT entfernen und dabei die Zahl der entfernten Zeilen protokollieren?

Deine Schleife läuft einmal zu oft.
Die Initialisierung von zahler2 gehört wohl nicht in die Schleife.

Und last but not least: Was funktioniert nicht?

Grüße vom marabu

[Borschti]

Also das Datenbankfeld ist auch vom Typ Memo.

Also vorher muss nicht sein, aber wird mit Trim() wohl mit abgedeckt, die entfernten Zeilen möchte Ich dann Zählen, ja.

Die Intialisierung war wirklich fehl am Platze, hatte was getestet und wieder vergessen rauszunehmen

Also die bearbeiteten Inhalte im Feld Langtext werden nicht wieder in die Tabelle zurückgeschrieben, Ich denke das geht mit .post aber es ist wohl ein Fehler drin den ich nicht finde.

[mkinzler]

Versuch mal
VddTable1.FieldByName('Langtext').Value := Memo2.Text; Das .Next führt den Post mit aus.

[Borschti]

Hmm also danke erstmal für die Antworten, Ich bin jetzt soweit, dass ich mir sicher bin das, dass Problem an dem Memofeld liegen muss, ich habe mal ein Feld vom Typ Character mit:

Delphi-Quellcode:

VddTable1.Edit
VddTable1.FieldByName('Bezeichnung').asstring := 'narf';
VddTable1.Post;

bearbeitet. Hier gabs keine Probleme.

Ist denn .Text eigentlich die richtige Eigenschaft oder wäre .Lines vielleicht angebrachter?

Woran könnte es sonst noch liegen?

mfg
Alex

[marabu]

Memo-Felder einer TTable kannst du so bearbeiten:

Delphi-Quellcode:

const
  LT = 'LANGTEXT';
var
  ms: TStream;
  sl: TStrings;
  n, nTotal: Integer;
begin
  // ..
  ms := TMemoryStream.Create;
  sl := TStringList.Create;
  nTotal := 0;

  with VddTable1 do
    while not Eof do
    begin
      TBlobField(TFieldByName(LT)).SaveToStream(ms);
      ms.Position := 0;
      sl.LoadFromStream(ms);
      n := sl.Count;
      sl.Text := Trim(sl.Text);
      Inc(nTotal, n - sl.Count));
      ms.Size := 0;
      sl.SaveToStream(ms);
      ms.Position := 0;
      Edit;
      if sl.Count = 0
        then FieldByName(LT).Clear
        else TBlobField(FieldByName(LT)).LoadFromStream(ms);
      Post;
      Next;
    end;

  sl.Free;
  ms.Free;
  // ...
end;

Getippt und nicht getestet.

Edit: Tippfehler korrigiert - danke @Peinhard

[Borschti]

Erstmal danke das du dir die Mühe gemacht hast den Code zu tippen, Ich habe aber nun noch das Problem, dass mir angezeigt wird das "TField" kein Element Namens "SaveToStream" enthält, genauso bei LoadFromStream. Units Classes ist eingebunden. Kann man SaveToStream und LoadFromStream garnicht auf FieldByName anwenden? Wenn ja, was könnte man sonst benutzen?

mfg
Alex

[Peinhard]

Auf TBlobField bzw TMemoField casten. Die Zeile

if sl.Count = 0 scheint mir übrigens

if sl.Count > 0 lauten zu sollen.

[Borschti]

Naja habs mal mit dem casten probiert, nun wird mir die Fehlermeldung: 'VddTable1: Error modifying read only blob' angezeigt und mein Programm stürzt komplett ab =(

Ich kann mit der Fehlermeldung nicht viel anfangen...

Vielleicht sagt Sie euch ja mehr als mir.

mfg
Alex