---

Ja dav.

Jeg er ved at lave et lille program "en lille Editor" som kan åbne en fil,
vise dens indhold og gemme den igen.

Alt dette er ok, men den skal gemme filen et bestemt sted og hvis den ikke
hedder det rigtige til efternavn, så skal den omdøbe den til det nye
efternavn.

Eks.:
Filen der åbnes ligger måske på D drevet i dir tnc2500 og hedder måske
51987.TAP
" d:\tnc2500\51987.TAP "

Den skal altid gemmes i "c:\klar\"
Men den skal have et nyt efternave, så den kommer til at hedde 51987.h
"c:\klar\51987.h"

Problemet er at jeg ikke kan få den til at skifte efternavn, er der nogen
der kan hjælpe ???


Her er hvad jeg er nået til i programmet:

***************************************
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
MainMenu1: TMainMenu;
Fi1: TMenuItem;
ben1: TMenuItem;
Gem1: TMenuItem;
Slut1: TMenuItem;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
procedure Slut1Click(Sender: TObject);
procedure ben1Click(Sender: TObject);
procedure Gem1Click(Sender: TObject);
procedure Ver1Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
FNavnGem: string;
implementation

{$R *.DFM}

procedure TForm1.Slut1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.ben1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
label1.Caption := OpenDialog1.FileName; {gammel filnavn}
FNavnGem := OpenDialog1.FileName;
label2.Caption := FNavnGem; {Nyt filnavn}
{Mulighed for at rette den øverste linie hvor filnavnet står}
{Derfor vises en lille MEMO}
Memo1.lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

procedure TForm1.Gem1Click(Sender: TObject);
{Her skal filen gemmes med det nye navn}
begin
if OpenDialog1.FileName <> '' then
begin
Memo1.Lines.SaveToFile(OpenDialog1.FileName);
end;
end;


end.

***************************************

---

Hmmm... hvis du nu kom til at kende de simple delphi-funktioner til at
kopiere og rename ville du nok ikke have nogle problemer med at få det
implementeret i dit program :)

function RenameFile(const OldFileName, NewFileName: string): Boolean;

function CopyFile(lpExistingFileName,lpNewFileName,bfaillfExists);

- Thomas

---

procedure ChangeFileExt(filename, extension);

F.eks. Du har filen 51087.TAP, som skal hedde 51087.h

Så skriver du ChangeFileExt(filename, '.h');

Hvor filename er en variabel som indeholder stregen 51087.TAP.

Mvh
Thomas Due
"Thomas P" <blomme@post.com> wrote in message
news:910egm$hnb$1@news.inet.tele.dk...
> Hmmm... hvis du nu kom til at kende de simple delphi-funktioner til at
> kopiere og rename ville du nok ikke have nogle problemer med at få det
> implementeret i dit program :)
>
> function RenameFile(const OldFileName, NewFileName: string): Boolean;
>
> function CopyFile(lpExistingFileName,lpNewFileName,bfaillfExists);
>
> - Thomas
>
>