TStringList Max String länge

[EWeiss]

Zitat von Luckie:

Denk aber daran, dass API-Funktionen keine Exception werfen, sondenr einen Fehlercode zurückgeben. Deine Funktion GetShortName muss also im Fehlerfall eine Exception werfen.

Verstehe ich jetzt nicht was du meinst.. sorry
Ist was falsch an meiner Error prüfung ?

EDIT:
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;

gruss Emil