Hallo marabu,
habe die Tabelle für Textbausteine entsprechend deiner Anweisung geändert.
Mit den beiden Codes schreibe ich in das TMemo1 bzw. lese aus:
Delphi-Quellcode:
procedure TFmTBS.BtnSpeichernClick(Sender: TObject);
var
FileStream: TFileStream;
BlobStream: TStream;
begin
...
Edit;
FileStream := TFileStream.Create('TBS.Txt',fmOpenRead or fmOpenWrite);
BlobStream := CreateBlobStream(FieldByName('Text'),bmWrite);
Memo1.Lines.SaveToStream(BlobStream); //Textbaustein, Text-ID 1 schreiben;
FileStream.Free;
BlobStream.Free;
Post;
end;
procedure TFmTBS.FormCreate(Sender: TObject);
...
Edit;
FileStream := TFileStream.Create('TBS.Txt',fmOpenRead or fmOpenWrite);
BlobStream := CreateBlobStream(FieldByName('Text'),bmRead );
Memo1.Lines.LoadFromStream(BlobStream); //Textbaustein, Text-ID 1 lesen;
...
end;
end;
1.) Stimmen die Codes?
2.) TBS.Txt ließ sich nicht automatisch erzeugen und mußte manuell hinzugefügt werden.
3.) Wie schreibe/lese ich die Texte für TMemo2 usw. auf der gleichen FmTBS?
Vielen Dank vorab für die Antwort.
Gruß
Lombi