Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Comparar cadenas de caracteres sacadas de un fichero (https://www.clubdelphi.com/foros/showthread.php?t=38638)

papulo 22-12-2006 14:43:33

He aquí la solución al final. Ya funciona perfectamente y esas cosas.

Si no se entiende, la explicaré (lo cual no dice que sea la mas óptima y la mas eficiente y la mas bonita y... pero me la he currao como he podido)

Código Delphi [-]
procedure TfGlobal.CalcularStarCross;
var
  CharSelected: string;
begin
  sStartCross := '';
  buffer := BuildIniFile.ReadString('XREFER_PARAMETERS', TempList.Strings[1], ''); //Leo el sStarCross del INI
  CharSelected := AnsiLeftStr(buffer, 1);
  buffer := AnsiRightStr(buffer, Length(buffer) - 1);

  repeat
    if (CharSelected <> ',') and (CharSelected <> '[') and (CharSelected <> ']') and (CharSelected <> Chr(39)) then
      begin
        buffer2 := buffer2 + CharSelected;
        CharSelected := AnsiLeftStr(buffer, 1);
        buffer := AnsiRightStr(buffer, Length(buffer) - 1);
      end
    else
      if (CharSelected = ',') then
        begin
          sStartCross := sStartCross + Chr(StrToInt(buffer2));
          CharSelected := AnsiLeftStr(buffer, 1);
          buffer := AnsiRightStr(buffer, Length(buffer) - 1);
          buffer2 := '';
        end
      else
        begin
          CharSelected := AnsiLeftStr(buffer, 1);
          buffer := AnsiRightStr(buffer, Length(buffer) - 1);
        end;
  until CharSelected = ']';

  sStartCross := sStartCross + Chr(StrToInt(buffer2));
  CharSelected := AnsiLeftStr(buffer, 1);
  buffer := AnsiRightStr(buffer, Length(buffer) - 1);
  buffer2 := '';
end;

Después de esta, paso a "Novato en Delphi 88%"


La franja horaria es GMT +2. Ahora son las 08:49:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi