Elektroda.pl
Elektroda.pl
X

Wyszukiwarki naszych partnerów

Wyszukaj w ofercie 200 tys. produktów TME
Europejski lider sprzedaży techniki i elektroniki.
Proszę, dodaj wyjątek elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Delphi]Zapisywanie tablicy rekordow do pliku txt

Poti89 23 Kwi 2009 16:21 4729 7
  • #1 23 Kwi 2009 16:21
    Poti89
    Poziom 9  

    Witam, mam taki oto rekord:
    program Student1;

    {$APPTYPE CONSOLE}

    uses
    SysUtils;

    type
    student = record
    id:byte;
    oceny:array[1..10] of real;
    end;
    Tab = array of student;
    var
    TabG1:Tab; plik:text; n:integer;


    Procedure PobierzDane (var TabP1:Tab;n1:integer);
    var i,k,l:integer;
    begin
    setlength (TabP1,n1);
    for i:=0 to n1-1 do
    begin
    writeln (' STUDENT ',i+1);
    write ('ID: ');
    readln(TabP1[i].id);
    write('Podaj liczbe ocen : ');
    readln(l);
    for k:=1 to l do
    begin
    repeat
    write('Podaj ',k,' ocene : ');
    readln(TabP1[i].oceny[k]);
    until
    (TabP1[i].oceny[k]>1) and (TabP1[i].oceny[k]<6);
    end;
    end;
    end;

    i procedure wczytujaca dane do tablicy, jak zapisac stworzana tablice z ID studenta i jego ocenami do pliku txt??

  • #2 23 Kwi 2009 17:18
    190175
    Usunięty  
  • #4 23 Kwi 2009 22:37
    Poti89
    Poziom 9  

    Czyli poprostu odwrotna procedura do wczytywania danych?? Moze jakis przyklad?

  • #5 24 Kwi 2009 00:20
    190175
    Usunięty  
  • #6 24 Kwi 2009 07:38
    Poti89
    Poziom 9  

    Chce aby byly one czytelne w notatniku

  • #7 24 Kwi 2009 08:35
    190175
    Usunięty  
  • #8 24 Kwi 2009 13:18
    Dżyszla
    Poziom 42  

    Poti89 napisał:
    Czyli poprostu odwrotna procedura do wczytywania danych?? Moze jakis przyklad?
    Nie, chyba, ze z takiego formatu również czytasz. Musisz zrobić to samo, co robisz przy wyświetlaniu na ekran, tylko skierować do strumienia plikowego.

 Szukaj w ofercie
Zamknij 
Wyszukaj w ofercie 200 tys. produktów TME