Új hozzászólás Aktív témák

• #1440 g4dg3t senior tag Rolly #1439

  Új Válasz 2007-01-16 10:38:35 #1440

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  g4dg3t

  senior tag

  válasz Rolly #1439 üzenetére

  legegyszerubben Pos, PosEx es Copy fuggvenyekkel (elofeltetel hogy a stringben mindig a 3. space-tol kezdodjek a kerdeses reszlet):
  
  var
  Ind: integer;
  OutStr: string;
  ...
  Ind:=Pos(#32,Sor);
  if Ind > 0 then Ind:=PosEx(#32,Sor,Ind + 1);
  if Ind > 0 then Ind:=PosEx(#32,Sor,Ind + 1);
  if Ind > 0 then OutStr:=Copy(Sor,Ind + 1,Length(Sor) - Ind)
  else OutStr:='';
  ...
  
  Pos es PosEx fv helyett ciklust is szervezhetsz...kinek mi elegansabb.
  
  [Szerkesztve]

Új hozzászólás Aktív témák