Solved

how to save a file and retrieve

Posted on 1998-04-05
3
165 Views
Last Modified: 2010-04-06
i got a hard time saving a text with assign properties like the color, the font size, and the font style that when i retrieve it again the assign properties of the last file i save will be applied to the file that i retrieve. can anybody help me.
0
Comment
Question by:kabae
  • 2
3 Comments
 
LVL 1

Accepted Solution

by:
extreme earned 100 total points
ID: 1361301
Well, you don't specified if you are using TRichEdit or what to format the text. I'll
suppose you are using TRichEdit, and maybe you are using SaveToFile to save the file to
disk. I such a case if you are not having the text formatted when retrieving the text again
then that could be because you have the PlainText property setted to true in the TRichEdit
object. Try setting the PlainText property to false, and use the methods SaveToFile and LoadFromFile of the Lines property to save and retrieve your text. That works saving the text in RTF format.
0
 

Author Comment

by:kabae
ID: 1361302
to extreme
this is a sample program that im working. Can you do this the right way coz im new in delphi programming.
im trying the savetofile method together with a timage with it i cant find a way to do it. plz help me.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, LblEffct, Buttons, aprstore, sDialogEx, oDialogEx;

type
  TfAutoPropStore = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button4: TButton;
    FontD: TFontDialog;
    OpenD: TOpenDialogEx;
    SaveD: TSaveDialogEx;
    BitBtn3: TBitBtn;
    lb1: TLabel;

    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fAutoPropStore: TfAutoPropStore;
    a: integer;

implementation

{$R *.DFM}


procedure TfAutoPropStore.BitBtn1Click(Sender: TObject);
VAR I:INTEGER;
    F1:FILE;
begin

IF saved.Execute THEN

BEGIN
//aps.SaveProperties;

 a :=strtoint( EDIT1.TEXT);

  ASSIGNFILE(F1,saved.FILENAME);
  REWRITE(F1,1);

I:=36;
 BLOCKWRITE(F1,a,I,I);
 CLOSEFILE(F1);

//aps.Items.Clear;
END;


end;
procedure TfAutoPropStore.Edit1Change(Sender: TObject);
begin

lb1.Caption := edit1.Text;

end;


procedure TfAutoPropStore.Button4Click(Sender: TObject);
begin
fontd.Execute;
lb1.Font := fontd.Font;
end;

procedure TfAutoPropStore.BitBtn2Click(Sender: TObject);
VAR I:INTEGER;
    F1:FILE;
begin

edit1.Text := ' ';


IF OPENd.EXECUTE THEN
BEGIN


ASSIGNFILE(F1,OPENd.FILENAME);
RESET(F1,1);
I:={10116064;55404;;}36;
BLOCKREAD(F1,a,SIZEOF(a),I);
CLOSEFILE(F1);
EDIT1.TEXT:= inttostr(a) ;

END;

end;


procedure TfAutoPropStore.FormActivate(Sender: TObject);
begin
edit1.Text := ' ';
end;


procedure TfAutoPropStore.BitBtn3Click(Sender: TObject);

begin
close;


end;

end.
0
 
LVL 1

Expert Comment

by:extreme
ID: 1361303
Did you tried the SaveToFile method of the Picture property of the TImage component?
0

Featured Post

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
How to convert wav to mp3 in delphi 9 200
Communication Between RC4 Delphi <-> PHP 3 114
Run video youtube webbrowse 10 62
RESTRequest Parameter 4 30
A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question