TStringList Max String länge

[Luckie]

Zitat von EWeiss:

Ach so verstehe jetzt was du meinst
Hier mal die Funktion aus dem Forum hier...

Delphi-Quellcode:

var
  ErrorCode: DWord;

Delphi-Quellcode:

function GetShortName(sLongName: string): string; 
var 
  sShortName:    string; 
  nShortNameLen: Integer; 
begin 
  SetLength(sShortName, MAX_PATH); 
  nShortNameLen := GetShortPathName(PChar(sLongName), PChar(sShortName), MAX_PATH - 1); 
  if (0 = nShortNameLen) then 
  begin 
    ErrorCode := ERROR_INVALID_PARAMETER; // Du meinst das hier in etwa ? 
    Exit;
  end; 
  SetLength(sShortName, nShortNameLen); 
  Result := sShortName; 
end;

Richtig. Und damit ist dieser try-except-Block:

Delphi-Quellcode:

try
     tmpPath := GetShortName(Path);
except
     if GetlastError =  ERROR_INVALID_PARAMETER then
       tmpPath := Path;
end;

überflüssig.

Aber ich würde in der Funktion GetShortName eine Exception werfen.