Hallo zusammen, habe zwar über die SuFu schon einige Threads zu "RenameFile" gefunden, aber keins, das mir bei meinem Problem wirklcih weiterhilft.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
iDatensätze: Integer;
sNeueDatei: String;
sAlteDatei: String;
begin
qMensch.SQL.Text := 'SELECT Name, Vorname, Geburtsname FROM Mensch';
qMensch.Open;
qMensch.First;
for iDatensätze := 0 to qMensch.RecordCount - 1 do
begin
sNeueDatei := qMensch.FieldByName('Name').AsString + '_' + qMensch.FieldByName('Vorname').AsString; // --> heißt dann z.B. Mark_Mustemann.txt
sAlteDatei := qMensch.FieldByName('Geburtsname').AsString; --> z.B. MarC_Mustermann.txt
//ShowMessage(sNeueDatei);
SysUtils.RenameFile(sAlteDatei, sNeueDatei);//--> ändert den namen einfach nicht
qMensch.Next;
end;
end;
end.
Hab in einem anderen Beitrag gelesen, dass RenameFile nurfunktioniert, wenn die Datei im selben Verzeichnis liegt.
Kann mir jmd sagen, wieso, RenamFile bei mir nicht funktioniert?
mfg David