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

• #608 gLes őstag AND1 #605

  Új Válasz 2005-02-19 15:41:32 #608

  Ú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

  

  gLes

  őstag

  válasz AND1 #605 üzenetére

  Hát ez nem túl sok információ de mivel TP-ben vagyunk gondolom arra gondol, hogy van egy X méretű String-eket tartalmazó tömb, és ha az összeset megtöltötted, akkor kiírsz egy csillagot és pá...de ez hülyeség...úgyhogy inkább azt kéne, hogy van monnyuk egy 100db Stringből álló tömböd (azé 100 monnyuk mer senkinek sem lesz türelme ennyit beírogatni) és akkor te szépen readln-nal olvasgatod be a tömbbe a cuccost és ha beír egy *-ot az illető akkor kiszállsz...monnyuk nemtom kezel-e ekkora tömböt a TP A Delphi kezelne, sőt akár dinamikusan is
  
  Szal a beolvasás vhogy így:
  
  var
  A: array[1..100] of String;
  I: Integer;
  S: String;
  begin
  for I := 1 to 100 do
  A[I] := '';
  I := 0;
  repeat
  Inc(I);
  readln(A[I]);
  until (A[I] = '*') or (I = 100);
  end;
  
  Szal vhogy így
  
  [Szerkesztve]

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