[PASCAL] Výmena dvoch hodnôt v súbore

majo30095 · Napísal **majo30095**: 27.03.2011 17:38

Zdravím, potrebujem poradiť s tvorbou jednej procedúry v programe. Ide v podstate o to, že v určitom súbore je uložená "databáza" n-prvkov, z ktorých každému pripadá päť rôznych hodnôt (string/integer aj real) - databáza sa napĺňa v jednej procedúre... tú mám hotovú, ale problémom je procedúra, ktorá dokáže vymeniť medzi ktorýmikoľvek dvoma prvkami jednu z ich hodnôt. Viem, že sa to dá spraviť nejak takto:

Kód:

procedure vymena;
 begin
  reset(f);
  while not eof(f) do read(f,a[i]);
  close(f);
  writeln('zadaj ktory udaj chces prehodit ');
  readln(x);
  writeln('zadaj udaj s ktorym chces prehodit novy udaj ');
  readln(y);
  pom:=a[x];
  a[x]:=a[y];
  a[y]:=pom;
  rewrite(f);
  while not eof(f) do write(f,a[i]);
  close(f);
 end;

lenže, to funguje iba v prípade, že sa použije array ... v mojom programe to mám spravené cez record, a preto nemôžem použiť ten predchádzajúci postup.

Premýšlal som nad tým, že by sa to malo dať urobiť prepísaním do pomocného súboru, ale neviem, kde začať.

juho · Napísal **juho**: 27.03.2011 19:30

ved a[i] budes mat prvok z pola tych tvojich recordov
a zrus si tie strongy[b]

majo30095 · Napísal autor témy **majo30095**: 27.03.2011 20:31

tam v tom programe je ďalších 9 procedúr a už je dosť veľký - takže sa mi to teraz nechce prerábať alebo robiť odznova, a preto hľadám spôsob, ako to spraviť aj bez array, veď musí existovať aj nejaký iný spôsob...

//nepis boldom! (stenley)
//ok

Gregi555 · Napísal **Gregi555**: 28.03.2011 19:49

Co takto pouzit prikaz SEEK

majo30095 · Napísal autor témy **majo30095**: 28.03.2011 20:25

Gregi555 píše:

Co takto pouzit prikaz SEEK

Môže byť, ale ja by som skôr potreboval vysvetliť postup ako to vymeniť - aspoň teoreticky - nemusíte mi napísať celý program

A čo vlastne s tým SEEK spraviť? Veď SEEK je na vyhľadanie...

[PASCAL] Výmena dvoch hodnôt v súbore

Podobné témy