Club Builder

[Juan]

Hola foro,

He encontrado un código que me es de utilidad para un programa pero esta en Pascal y no se como pasarlo a c++. Algunas sentencias las he convertido por lógica pero hay otras que ni pa'tras. Aquí os pego algunos fragmentos de código a la espera de que podais ayudarme:

CODIGO 1
---------
S:= Value div 75; //Value es longint
S100:= Value mod 75;
H:= S div 3600;
S:= S mod 3600;
M:= S div 60;
S:= S mod 60;


CODIGO 2
-------------

No se que signifca el #9
//S es String
S:= Format('%.2d'#9'%s'#9'%s'#9'%s'#9'%.2f MB'#9'%s'#9'%s'#9'%s',
[Number,
Title,
MSFToTimeStr(Start,True),
MSFToTimeStr(Length,True), Size, CP, PE,ISRC]);

CODIGO 3
-------------

P,Offset,i: Integer;
C: array[0..255] of Char;
S,S2: string;
begin
Offset := 0;
i := 0;

S2 := ListBox.Items[Index];

P := Pos(#9, S2);
while True do
begin
if (P = 0) then S := System.Copy(S2, 1, MaxInt)
else S := System.Copy(S2, 1, P-1);

R.Right := R.Left + (Header.SectionWidth[i]);
ExtTextOut(ListBox.Canvas.Handle, R.Left, R.Top, ETO_CLIPPED or
ETO_OPAQUE, @R, StrPCopy(C, S), Length(S), nil);

if (i = 0) then dec(R.Right,Offset);
R.Left := R.Right;

if (P = 0) then exit;

S2 := System.Copy(S2, P+1, MaxInt);
P := Pos(#9, S2);
inc(i);
end;
end;


Como os he dicho algunas lineas las he descifrado pero os estaría muy agradecido si me echaseis un cable. Gracias por todo y espero no ser muy pesado.

Un saludo, juan.

[_Leo]

Algunas variables no dices lo que son, así que he tenido que "adivinar" un poco lo que podían ser, así que es posible que algún . lo tengas que cambiar por -> o al contrario.

La "traducción" es lo mas literal posible, pero realmente esto en C++ se podría abreviar un poquito o usar funciones diferentes.

[Juan]

Muchísimas gracias Leo!

Ha funcionado a la perfección. Te debo unas cervezas.


Juan.