ERROR prilikom upisa recorda u datoteku?! [Delphi]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

ovako: definisao sam ovakav record
type osoba = record
ime: string[10];
prezime: string[15];
adresa: string[40];
telefon: string[14];
end;
var
radnik: osoba;
f: file of osoba;
procedure TForm1.SnimiClick(Sender: TObject);
var
A,B,C,D: string;
begin
AssignFile(f,'c:\proba.txt');
reset(f);
Seek(f,FileSize(f));
A := Ime.Text;
B := Prezime.Text;
C := Adr.Text;
D := Tel.Text;
radnik.ime:=A;
radnik.prezime:=B;
radnik.adresa:=C;
radnik.telefon:=D;
write(f,radnik);
CloseFile(f);
end;

Svaki put kada snimam podatke u datoteku on mi izbrise prethodne podatke kao kad se koristi naredba rewrite. Treba mi nesto slicno kao APPEND u pascalu. Ako neko ima resenje nek ostavi post.[/img]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ovo ti je iz Help-a, pa pogledaj...Ne znam da li si ga citao...

Input and output procedures and functions
Procedure or function Description
Append Opens an existing text file for appending.
AssignFile Assigns the name of an external file to a file variable.
BlockRead Reads one or more records from an untyped file.
BlockWrite Writes one or more records into an untyped file.
ChDir Changes the current directory.
CloseFile Closes an open file.
Eof Returns the end-of-file status of a file.
Eoln Returns the end-of-line status of a text file.
Erase Erases an external file.
FilePos Returns the current file position of a typed or untyped file.
FileSize Returns the current size of a file; not used for text files.
Flush Flushes the buffer of an output text file.
GetDir Returns the current directory of a specified drive.
IOResult Returns an integer value that is the status of the last I/O function performed.
MkDir Creates a subdirectory.
Read Reads one or more values from a file into one or more variables.
Readln Does what Read does and then skips to beginning of next line in the text file.
Rename Renames an external file.
Reset Opens an existing file.
Rewrite Creates and opens a new file.
RmDir Removes an empty subdirectory.
Seek Moves the current position of a typed or untyped file to a specified component. Not used with text files.
SeekEof Returns the end-of-file status of a text file.
SeekEoln Returns the end-of-line status of a text file.
SetTextBuf Assigns an I/O buffer to a text file.
Truncate Truncates a typed or untyped file at the current file position.
Write Writes one or more values to a file.
Writeln Does the same as Write, and then writes an end-of-line marker to the text file.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa imam i ja help u delphiju. Da sam razumeo help ne bi ostavio post ovde. Aj pojasni...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa svi onako "ofrlje" pogledaju help, ni ne trude se da razumeju, i odmah traze pomoc...
Pa vidis da sam ti podvukla sta pise...pogledaj da li je to mozda u pitanju...
Ovo je cista pacal sintaksa...ne znam zasto to ne uradis na neki drugi nacin,ako vec radis delphi? I kad pozivas ovo, gde ti je neka petlja?
I jesi li ostao pri txt fajlu ili ces da ides na mySQL

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Prvo hocu da resim ovo sa TXT datoteka da se osiguram a ne da krpim program u zadnja 2-3 dana, pa cu ako stignem da odradim i sa MySQL. Dobro si me provalila..Pascal znam odlicno i pre nikoh 2-3 meseca sam presao na Delphi tako da jos uvek trazim tu vezu izmedju njih i razlike...Jednostavno furam Pascal sintaksu a kad zapne ostavljam post
Na kakvu si petlju mislila? Sto ce mi petlja za upis u datoteku?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa treba ti petlja tipa while file.EOF do
Evo ti jedan primer pa pogledaj malo.U delphiju takodje postoji naredba append,samo da znas


program ka; type zapis=record              sif:1..100;              naziv:string[20];              kol:integer;            end;      tslog=zapis;      tdat=file of tslog; var d:tdat;pom:tslog; begin   assign(d,'proizvod.dat');   rewrite(d);   while not eof do      begin        with pom do          begin            writeln('Daj sifru');readln(sif);            writeln('naziv');readln(naziv);            writeln('Kolicina');readln(kol);          end;      write(d,pom);    end; readln; close(d); end.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Puno hvala Jelena. Znam da ima append ali ne volim da rovam po helpu a sintaksa od pascala ne radi. znam za while not eof(f. npr) do al nece bas tako za delphi. Aj sad cu probati ovako. U svakom slucaju puno hvala za primer.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa ja sam ti dala pascal sintaksu, da lepo shvatis. Da, u delphiju ide malo drugacije (ja kada radim koristim dataset-ove a ne ovako jednostavnu sintaksu), ali je princip isti. Ipak pogledaj malo i help. Ako zatreba jos neka pomoc, zovi

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jel koristis ovaj ICQ sto ti je u profilu napisan? Pa negde ce zapeti opet za koji dan a mozda i danas.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Greska je sigurno u tome sto si datoteku povezao i pozvao kao tekstualnu, sa ekstenzijom .txt. Slogovi mogu da budu delovi iskljucivo tipskih i netipskih datoteka, nikako tekstualnih. Sto se samih datoteka tice, i tu postoji par razlika kako se pristupa podacima u njima.

Moje pitanje glasi: kako stampati podatke iz jedne datoteke (delovi sloga).
Koji se objekat koristi i kako se sa njim radi?