[ Race Conditions ] Run Practice1="0" Run Practice2="0" Run Practice3="0" Run Practice4="1" Run Qualify="0" Run Warmup="0" Race Timer="0" // Seconds between displaying time remaining in race (zero disables)
-------
Her vil jeg gerne have fjernet alle kommentarer efter værdierne, således at CURNT Failure Rate="1" // Mechanical failure rate (0-none, 1-normal, 2-timescaled, 3-season) blev til CURNT Failure Rate="1"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
var SL : TStringList; i : integer; Temp : string; begin SL:=TStringList.Create; SL.LoadFromFile('c:\minfil.txt'); for i:=0 to SL.Count-1 do begin Temp:=SL[i]; if pos('//',Temp)>0 then begin Delete(Temp,pos('//',Temp),MaxInt); SL[i]:=Temp; end; end; SL.SaveToFile('c:\minfil.txt'); end;
Kan ikke dy mig for at justere lidt i Kronings ellers fungerende algoritme:
Kroning: Delphi har ikke Garbage Collection - ej heller i scope af en procedure eller funktion.
var i : integer; SL : TStringList; begin SL := TStringList.Create; try SL.LoadFromFile('c:\minfil.txt'); for i:=0 to SL.Count-1 do begin p := pos('//',SL[i]); if p > 0 then System.Delete(SL[i],p,MaxInt); // Plejer at få fat i den forkerte Delete end; SL.SaveToFile('c:\minfil.txt'); finally SL.Free; // Frigiver objektet. end; end;
Men derefter får jeg denne fejl: [Error] Unit1.pas(326): E2197 Constant object cannot be passed as var parameter i linjen System.Delete(SL[i],p,MaxInt);
Jeg har brugt Temp:=SL[i]; i mit forslag netop for at undgå denne fejl, her er den igen lettere tilrettet, dog stadig utestet :)
var SL : TStringList; i : integer; Temp : string; begin SL:=TStringList.Create; SL.LoadFromFile('c:\minfil.txt'); for i:=0 to SL.Count-1 do begin if pos('//',SL[i])>0 then begin Temp:=SL[i]; Delete(Temp,pos('//',Temp),MaxInt); SL[i]:=Temp; end; end; SL.SaveToFile('c:\minfil.txt'); SL.Free; end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
