correct filename- how to check it?

[kazkazkaz]

when i want to create named by user file, how to check if filename is correct? i need to avoid exception

[Oessel]

Code:

try

  Memo1.Lines.SavetoFile(varUserDefinedFile);

except

  MessaeDlg('Sorry, you entered an invalid filename',mtError,[mbOK],0);

end;

Is it that, what you're looking for ?

[kazkazkaz]

unforunetelly no.
i have to check if the name is correct before i try to write it to disk.
i wouldnt like to write function which checks all positions in filename string.
i hope delphi/api  has it already definen.
but thanks a lot. kazkazkaz

[Mo]

try something like this:

Code:

function IsCorrectFileName(FileName: String): Boolean;

var

  i: Integer;

begin

  result := true;

  for i := 1 to (length(FileName)) do

    result := (result) and (not Filename[i] in ['/', '', ':', '*', '"', '?', '<', '>', '|']);  // These characters aren't allowed!

  result := (result) and (pos('.', FileName) > 0); // Use this if you wanna check if there's a file extension

end;

Didn't test ist, but i think it will work

greetz
Mo

[kazkazkaz]

ill do it like you wrote, thank you