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

• #2120 Luos tag Luos #2119

  Új Válasz 2008-01-28 22:45:33 #2120

  Ú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 Luos #2119 üzenetére

  megvan, valamiért mikor kivalasztottam hogy modositas (case-el) akkor az enterre rögtön átugrotta a read(nev) et is és ezért mindig üres mezőre írta át, csak akkor megy ha beirok még elé egy readln;-t is. valaki tud erre szebb megoldást? (gondolom vmi pufferes dolog van itt)

• #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...

• #2117 Luos tag Luos #2116

  Új Válasz 2008-01-27 16:57:28 #2117

  Ú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 Luos #2116 üzenetére

  ja elfelejtettem, itt egy példa raktardb hogy ne kelljen irogatni : [link] (cél mentése)

• #2116 Luos tag

  Új Válasz 2008-01-27 16:51:27 #2116

  Ú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

  Sziasztok ,irogatok egy raktárprogramot pascalban (tulképp külön órára kellett volna már réges rég.. .
  Rövden:
  Adatok kiirása fájlba, beolvasás, modositás, rendezés.
  a rekordokat típusos fájlban tárolom, és szeretném módosítani az adatokat, ez addig megy is míg számokat kell, de viszont ha a termék nevét szeretném módosítani, és ha azt probalom egy üres részt kapok eredményül.

  a kód itt található, viszont még koránt sincs kész . ha valakinek esetleg jobb ötlete van a módosításra ( azon kivül ugye hogy levagjuk a fájl végét, beleirjuk, majd ujra visszairjuk a végét) azt is örömmel venném.

  Köszi szépen.
  (kell két fájl, egy c:\raktardb.txt és tempdb.txt)

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