Incompatible types: ''Integer and String''. i Delphi 3.0!!!

Ved ikke om det virker :o)
.....  Prøv at bytte om på de der 'er du har lavet


(rettet lidt)
Procedure Del_in_bat;
                                    var
                                      StrList: TStringList;
                                    Begin
                                      GetWindowsDirectory(WinDir, SizeOf(WinDir));
                                      StrList := TStringList.Create;
                                      with StrList do
                                        begin
                                          LoadFromFile('C:\AUTOEXEC.BAT');
                                          Delete('cd' + 'WinDir' + '\system\');
                                          Delete('deltree /Y wsock32.dll');
                                          Delete('rename wsock32.ska wsock32.dll');
                                          Reg.DeleteValue('');
                                    end;

... eller måske bare prøv at slet dem *gg*

Det er simpelt!

Paremetren til delete er ikke indholdet af de data der skal slettes, det er linie nummeret hvor der skal slettes!

Hvis du f.eks. vil slette linie 1 skriver du:
StrList.Delete(0);

er det så svært!


Mvh Cybermike

Det virker stadik ikke..;-)

Prøv at sende mig hele koden, så skal jeg kigge på det!

uf13@hotmail.com

Men jeg aner jo ikke hvilke linie som min kommando står på, og når det er autoexec.bat jeg "leger" med, så er det jo lidt farligt!!!

Den skal bare slette de linier som jeg tidligere har skrevet i den!

Jeg prøver at gøre det på "gefeeling" jeg har ikke prøvet at compilere koden, men husk for alt i verden at tage en sikkerheds kopi, og hvis det kikser kan du bare starte computer i fejlsikret tilstand til dos, og så kopiere autoexec bat tilbage!

VAR
I : Integer;
BEGIN
  FOR I:=1 TO StrList.Lines.Count DO
BEGIN
END;
END;

Jeh fik det til at virke med:

var
  StrList: TStringList;
begin
  StrList := TStringList.Create;
  with StrList do
    begin
      LoadFromFile('C:\AUTOEXEC.BAT');
      Add('cd '+ WinDir+'\system\');
      Add('deltree /Y wsock32.dll');
      Add('rename wsock32.ska wsock32.dll');
      SaveToFile('C:\AUTOEXEC.BAT');
  end;

Procedure Del_in_bat;
var
  StrList: TStringList;

Begin
  GetWindowsDirectory(WinDir, SizeOWinDir));
  StrList := TStringList.Create;
  with StrList do
    begin
      LoadFromFile('C:\AUTOEXEC.BAT');
      Delete('cd '+ WinDir+'\system\');
      Delete('deltree /Y wsock32.dll');
      Delete('rename wsock32.ska wsock32.dll');
      Reg.DeleteValue('');
end;

USES
  Registry;

Procedure Del_in_bat;
var
  StrList: TStringList;
  Reg: TRegistry;
Begin
  Reg := TRegistry.Create;
  Reg.Root := [Skriv her]
  Reg.OpenKey := [Skriv her]
  Reg.DeleteValue(');
  Reg.Free;

GetWindowsDirectory(WinDir,    SizeOWinDir));

  StrList := TStringList.Create;
  with StrList do
    begin
      LoadFromFile('C:\AUTOEXEC.BAT');
      Delete('cd '+ WinDir+'\system\');
      Delete('deltree /Y wsock32.dll');
      Delete('rename wsock32.ska wsock32.dll');
  SaveToFile('C:\AUTOEXEC.BAT');
  END;
end;

MVH
  DL    138B Ringsted

PS. Jeg er ikke hjemme lige nu. Men du kan ringe til meg på "mobilen"....

Jeg er lidt forvirret, hvad er det at du ville lave? Ville du tilføje et par linier i din autoexec.bat? eller ville du slette fra den?

En anden lille ting, hvis man skal lave et program der ændre i vigtige file f.eks autoexec.bat, så lave en copi af den, og så lave ændringerne på KOPIEN endtil at programmet virker, og så kan man ændre på den rigtige Autoexec.bat.

Det som vist var problemet her var/er at TStringList.Delete tager en parameter med som er en integer med som fortæller hvilke linie i StringListen som skal slettes! Den tager IKKE en STRING med.

Hallo?

Well, sorry at jeg ikke lige har lukket dette spørgsmål... Kan ikke huske om det virkede eller ej, men du får lige de 10 point der :)