unit uEditTestProgramm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShlObj;
type
TAppInfos =
Class(TObject)
private
class function GetSpecialPath(nFolder: Integer):
string;
static;
class function GetEigeneDateien: TFileName;
static;
public
class property EigeneDateien : TFileName
Read GetEigeneDateien;
End;
type
TfrEditTestProgramm =
class(TForm)
edText: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
frEditTestProgramm: TfrEditTestProgramm;
implementation
{$R *.dfm}
class function TAppInfos.GetEigeneDateien: TFileName;
begin
Result:= IncludeTrailingPathDelimiter(GetSpecialPath(CSIDL_PERSONAL));
end;
class function TAppInfos.GetSpecialPath(nFolder: Integer):
string;
var
Buffer:
array[0..MAX_PATH]
of Char;
begin
if SHGetSpecialFolderPath(Application.Handle, Buffer, nFolder, False)
then
Result := Buffer
else
RaiseLastOSError;
end;
procedure TfrEditTestProgramm.FormCreate(Sender: TObject);
var
Liste: TStrings;
EigeneDateienPath: TFileName;
begin
Liste:= TStringList.Create;
try
EigeneDateienPath:= TAppInfos.EigeneDateien;
Liste.LoadFromFile(EigeneDateienPath+'
EditTextdokument.txt');
edText.Text:=Liste[0];
finally
Liste.Free;
end;
end;
procedure TfrEditTestProgramm.FormDestroy(Sender: TObject);
var
Liste: TStrings;
EigeneDateienPath: TFileName;
begin
Liste:= TStringList.Create;
try
Liste.Add(edText.Text);
EigeneDateienPath:= TAppInfos.EigeneDateien;
Liste.SaveToFile(EigeneDateienPath+'
EditTextdokument.txt');
finally
Liste.Free;
end;
end;
end.