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

• #2119 Luos tag Lortech #2118

  Új Válasz 2008-01-27 20:39:19 #2119

  Ú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

  

  Luos

  tag

  válasz Lortech #2118 üzenetére

  kicsit rövidititte, csak a név változtatására, az a probléma (most jól megy midnen, jó helyre is teszi, de a nevet még mindíg nem írja bele, üres hely marad valamiért.

  procedure modositas;
  begin
  reset(raktardb);
  write('Modositando ID:'); read(id);
  while (not eof(raktardb)) and (id <> cucc2.tid) do begin
  read(raktardb,cucc2);
  end;
  write('ird be az uj nevet:');
  read(nev);
  cucc2.tnev:=nev;
  seek(raktardb,filepos(raktardb)-1);
  write(raktardb,cucc2);
  readln;
  end;

  alap fájl:

  ID Név Ár (FT) Darab
  1 elso 1 1
  2 masodik 2 2
  3 harmadik 3 3
  4 negyedik 4 4

  ha kicserélem a 2-esnek a nevét, akkor:

  ID Név Ár (FT) Darab
  1 elso 1 1
  2 2 2
  3 harmadik 3 3
  4 negyedik 4 4

  köszi a segitséget tudom hogy atlathatatlan, hat meg nem vagyok valami profi
  a számok átírása tökéletes, a szövegé valamiért ratyi...

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