nun ja, wenn das so ist.
DANKE
Die gelesene Zeile + 2 für das CR und LF.
kewl, dankeschön
Vielleicht könnt ihr mir noch mehr helfen.
Es Soll ein Pfadname eingeben und eine Datei mit der Endung .txt erzeugt werden.
Wenn der User jetzt aber keine Endung oder eine andere Endung angibt.
Soll die Endung auf .txt geändert werden.
Delphi-Quellcode:
begin
if nameedit.Text = '' then
begin
Showmessage('No Path in Makroname:');
exit;
end;
Fileext := ExtractFileExt(nameedit.Text);
if not (Fileext = '.txt') then
begin
Changefileext(nameedit.Text,'.txt');
if Fileext = '' then
nameedit.text := nameedit.text + '.txt';
end;
Bei ExtractFileExt bekomme ich aber nichts zurück
