Einzelnen Beitrag anzeigen

danu1104

Registriert seit: 4. Dez 2006
75 Beiträge
 
Delphi 2006 Personal
 
#1

Versions abfrage Problem!

  Alt 2. Mär 2010, 07:38
Guten Morgen liebe DP Freunde


Ich habe ein kleines problem und zwar:
versuche ich hiermit die version abzufragen, es funktioniert soweit auch aber da mein program nach höhere werte schaut glaubt er das 43 jetzt höere version ist als die eigentliche version
das wiederum verursacht ganz klar einen error (erste ist version, zweite anzahl der archive/downloads)

36.01.11 43

Delphi-Quellcode:
var InfFile:TExtFile;
    Inf : String;
    Ini : Tinifile;
    RInf : TStringlist;
    I : Integer;
begin
  assignfile(InfFile,'history.config');
   ReseT(InfFile);
   Read(InfFile,inf);
  CloseFile(InfFile);

  label1.Caption:=inf;
  Localver:=inf;

  ini:=Tinifile.Create(ExtractFilePath(ParamStr(0))+'update.ini');
  with ini do
   begin
     H:=ReadString('Launcher','Host','');
     D:=ReadString('Launcher','Path','');
     P:=ReadInteger('Launcher','Port',0);
   end;
  ini.Free;

  with HTT do
   begin
     Port:=P;
   end;

  RInf:=TStringlist.Create;
  RInf.Delimiter:=' ';
 try
  RInf.DelimitedText:= htt.Get(H+'/'+D+'/history.config');
 except
  MessageBox(0,'Error while loading version Information','Error',16);
  exit;
 end;
 for i:=0 to RInf.Count -1 do
 begin
  if not (RInf.Strings[i] <> Localver ) then
  begin

   Remotever:=RInf.Strings[i];
   label2.Caption:=RInf.Strings[i];
   try
    updateIt(Remotever,StrToInt(RInf.Strings[i+1]));
    finally
    assignfile(InfFile,'history.config');
     ReWrite(infFile);
     Write(InfFile,RInf.Strings[i]);
    CloseFile(InfFile);

   end;
    break;
  end;
 end;
end;
meine frage jetzt, wie kann ich aus der version 36.01.11 die punkte rausnehmen um sie dann so zu vergleichen?
Daniel
  Mit Zitat antworten Zitat