[ 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 om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for 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.
