Hallo Eric,
es ist etwas unglücklich, dass du Hilfe bei einem Datentypfehler suchst, aber die Deklarationen der fraglichen Variablen nicht zeigst. Dein erster Fehler ist wahrscheinlich der Vergleich einer Struktur (SR) mit einer Zahl (0), aber da sind wohl noch mehrere. Mein Code-Vorschlag zu dem geschilderten Anwendungsfall würde so aussehen:
Delphi-Quellcode:
uses
FmUtils;
procedure CopyFiles(files: TStrings; srcDir, tgtDir: TFileName);
var
i: Integer;
fn: TFileName;
begin
srcDir := IncludeTrailingPathDelimiter(srcDir);
tgtDir := IncludeTrailingPathDelimiter(tgtDir);
files.BeginUpdate;
for i := Pred(files.Count) downto 0 do
begin
fn := srcDir + files[i];
if FileExists(fn) then
if CopyFile(fn, tgtDir + files[i]) >= 0 then
files.Delete(i);
end;
files.EndUpdate;
end;
Freundliche Grüße