/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Omdøbning og kopiering af en fil
Fra : Hans Nikolajsen


Dato : 10-12-00 15:03

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.

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




 
 
Thomas P (10-12-2000)
Kommentar
Fra : Thomas P


Dato : 10-12-00 18:29

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



Thomas Due (11-12-2000)
Kommentar
Fra : Thomas Due


Dato : 11-12-00 08:49

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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste