Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
11. Mai 2006
Mein letzter Versuch: Wenn deine Original-Dateinamen mit Pfad in Cols stehen und die durch dein Programm korrigierten Namen ohne Pfad in Cols, dann sollte das hier funktionieren:
procedure RenameFiles(oldNames, newNames: TStrings; skip: Cardinal = 0);
var
i: Integer;
fp, fn: TFileName;
begin
for i := skip to Pred(oldNames.Count) do
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
11. Mai 2006
Wenn du einen vollständigen Dateinamen hast und möchtest den Namen ohne Pfadanteil, dann verwende die Funktion ExtractFileName().
Meine Speicherroutine in Beitrag #5 geht aufgrund von Informationslücken davon aus, dass der Dateiname in der Titelzeile steht. Hier jetzt eine angepasste Version, der du den Speichernamen mitgeben kannst:
uses
StrUtils;
function SaveColumn(fn: TFileName;...
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
11. Mai 2006
Guten Morgen.
Du hast geschrieben, dass du ohne einen SaveDialog speichern möchtest - dann lasse diese Komponente auch einfach weg. Es hilft nicht, wenn du die Eigenschaft InitialDir von SaveDialog auf GetCurrentDir setzt, da die Komponente diese Information nur verwendet um das Navigieren im Dateisystem zu vereinfachen. Den absoluten Dateinamen kannst du einfach bei SaveToFile() selbst...
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
10. Mai 2006
Hallo Daniel,
es ist nur ein Platzhalter - ich dachte du würdest selbst die noch nötigen Änderungen machen. Immerhin hast du Pascal als eines deiner Wissensgebiete angegeben.
Es ist höchst unwahrscheinlich, aber was wäre, wenn du einen Fehler bei der Anwendung der Methode gemacht hättest?
uses
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
10. Mai 2006
Probiere es so:
var
fn: TFileName;
begin
fn := IncludeTrailingPathDelimiter(GetCurrentDir)
+ 'demo.txt';
with sgFiles do
Cols.SaveToFile(fn);