hi
ich hab mir ein miniprog geschrieben...
hier der qt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
files, temp:TStringList;
i:integer;
begin
files:=TStringList.Create;
temp:=TStringList.Create;
FindAllFiles(files,ExtractFileDir(Application.ExeName));
for i:=0 to files.Count-1 do
temp.Add(StringReplace(files[i],LabeledEdit1.Text,LabeledEdit2.Text,[rfReplaceAll]));
for i:=0 to files.Count-1 do
RenameFile(files[i],temp[i]);
end;
FindAllFiles is ausser CodeLib (Danke Sakura!)
wenn ich nu eingeb '0' und 'Hallo 0', dann funzt es
wenn ich dann aber sag '1' und 'Hallo 1', dann funzt es nicht mehr...
liegt das an der 0?
oder macht das prog das aus prinzip nur einmal mit?
oder wie?
wenn ich erst 1 mache, und dann 0 isses umgekehrt: 1 funzt und 0 nicht mehr
ausserdem findet er zum einen nicht alle dateien, aber er ersetzt auch nicht alle '0' bzw '1'
kann mir da irgendwer weiterhelfen?