IncludeTrailingBackslash -> Copy (ReadDir)

[Real-TTX]

Huhu Gemeinde

Ich versuche ein Verzeichnis Einzulesen. Habe dann auch eine Funktion gefunden im Netz, die ich auch verwenden wollte. Das Problem dabei ist, dass die Funktion "IncludeTrailingBackslash" benutzt. Und mein Compiler sagt mir da: "Warning: Systemabhängige Funktion".

Dies wollte ich umgehen, indem ich die Funktion durch ein Copy Befehl ersetze. Aber leider ohne Erfolg.

Ich hoffe jemand weis genaueres. Hier ist die Funktion mit den beiden Varianten:

Delphi-Quellcode:

function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist;
var
  SRec: TSearchRec;
  tmp: string;
begin
  // Variante 1
  tmp := Copy(Path, (length(Path)-1) , length(Path));
  if (not(tmp = '\')) then
  begin
    Path := Path + '\';
  end;

  // Variante 2
  //Path := IncludeTrailingBackslash(Path);

  result := TStringList.Create;
  try
    if FindFirst(Path + Mask, not faDirectory, SRec) <> 0 then exit;
    repeat
      case ShowPath of
        True  : result.Add(Path + SRec.Name);
        False : result.Add(SRec.Name);
      end;
    until FindNext(SRec) <> 0;
  finally
    FindClose(SRec);
  end;
end;

Danke im Vorraus....

Gruß, Real-TTX