Umwandlung von String nach TextFile

[Andreas L.]

Hi,
wie wandle ich einen String in einen textfile-Typ um?

Pchar beispiel:

Code:

pchar('hallo ;-)';

Sowas mein ich

Greetz und thx

[Luckie]

Bitte was? Gar nicht. Ich seheh auch keinen Grund dies zu tun. Erklär mal genauer, wozu du das brauchst.

[Andreas L.]

Rename(extractfilepath(application.exename)+'\Web-S!te.exe','Web-S!te.bak');

Zitat von Compiler:

Inkompitable Typen

Zitat von Delphi-Hilfe:

Delphi-Syntax:

procedure Rename(var F; Newname: string);
procedure Rename(var F; Newname: PChar);

Beschreibung

Die mit F angegebene externe Datei erhält den neuen Namen Newname. Bei weiteren Operationen mit F wird die externe Datei unter dem neuen Namen angesprochen.

F ist eine Variable eines beliebigen Dateityps. Newname ist ein Ausdruck des Typs String bzw. des Typs PChar, wenn die erweiterte Syntax aktiviert ist.

Dafür, was nun?

Greetz und thx

[xineohp]

moin,

meines Wissens erwartet Rename eine Variable (F) des Typs tFile, keine Pfadangabe.

[Nightshade]

Try this :

Delphi-Quellcode:

Delphi-Syntax:

function RenameFile(const OldName, NewName: string): Boolean;

[Luckie]

Die Rename Procedur aus der Unit System.pas bezieht sich auf Pascal Dateivariablen. Ein Blick in die Hilfe und das Beispiel angekuckt und du wüßtest, wie man damit umgeht:

Delphi-Quellcode:

uses Dialogs;
var

  f : file;
begin
  OpenDialog1.Title := 'Choose a file... ';
  if OpenDialog1.Execute then 
  begin
    SaveDialog1.Title := 'Rename to...';
    if SaveDialog1.Execute then 
    begin 
      AssignFile(f, OpenDialog1.FileName);
      Canvas.TextOut(5, 10, 'Renaming ' + OpenDialog1.FileName + 
                     ' to ' + SaveDialog1.FileName);
      Rename(f, SaveDialog1.FileName);
    end;
  end;

end;

Ansonsten nutz Die Rename Funktion aus der Windows.pas, da kannst du den alten und neuen Dateinamen einfach angeben.

[Andreas L.]

Aber irgendwie muss ja rename wissen welche datei umbennant werden muss.

hab jetzt ein bisschen gebastelt:

Delphi-Quellcode:

var
 f : file;
 begin
   f:=extractfilepath(application.exename)+'\Web-S!te.exe';
   Rename(f,'Web-S!te.bak');
 end;

Zitat von Compiler:

Operator ist auf Operanderntyp nicht anwendbar!

geht nicht...

Greetz

[Luckie]

Hallo!!! Liest du dir auch mal durch, was man dir postet? Ich habe mir sogar die Mühe gemacht das Beispiel aus der Hilfe zu posten.

Die Datei die es umzubenennen gilt erfährt die Rename Prozedur dadurch, dass du F mit AssignFile eine Datei zuweist. Steht alles in der Hilfe, im Berispiel und jetzt sogar hier im Forum.

[Andreas L.]

hab jetzt einfach renamefile benutzt.

@Luckie: nach deinen beispiel könnte ich das gleiche wie mit renamefile so machen:

Delphi-Quellcode:

var
f : file;
begin
Assignfile(f, 'C:\text.txt');
rename(f, C:\_text.txt);
end;

Greetz und thx

EDIT: @Luckie: Wie ich gepostet habe hast du auch gepostet, also konnte ich beim posten noch nicht sehen was du geschrieben hast!

[Luckie]

Da fehlt noch ein CloseFile.