logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Delphi - wczytywanie i zapisywanie danych z pliku txt do SpinEdit i Edit/Label

kelv 28 Maj 2005 23:30 2282 5
REKLAMA
  • #1 1532543
    kelv
    Poziom 11  
    Posty: 17
    Witam.. Nie wiem, jak wczytac dane z pliku tekstowego do formatki w Delphi.. Dane w plikach maja nastepujacy 'wyglad':
    NP.

    1 2 3
    -4 6 15
    -16 3 0
    Jakaś nazwa maski



    Liczby mogą być z zakresu <-16,16>. Tekst pod spodem jest różnych długości.
    Jak poszczególne liczby wyświetlić w SpinEdit'ach (9 SpinEdit'ów), a tekst np. w Edit lub po prostu Label.. Jak poza tym zmodyfikowane dane zapisać w takim samym szablonie do nowego pliku?
    Serdecznie dziękuję za ew. pomoc :)
  • REKLAMA
  • #2 1532563
    elektryk
    Poziom 42  
    Posty: 11029
    Pomógł: 439
    Ocena: 240
    Użyj typu "text" do odczytu z pliku, będziesz mieć gotowe funkcje czytające linijki tekstu do typu string (readln).
  • REKLAMA
  • #3 1532643
    kelv
    Poziom 11  
    Posty: 17
    Przepraszam, ale ja dopiero zaczynam programować w Delphi i nie bardzo wiem, jak to zrobić.. :) Probowałem, ale.. Nie wyszło..
    Będę wdzięczny za jakiś kod programu.. :)

    P.S. Pliki oczywiście wczytuje i zapisuje poprzez OpenDialog i SaveDialog..
  • REKLAMA
  • Pomocny post
    #4 1533056
    Łuk_F
    Poziom 17  
    Posty: 257
    Pomógł: 34
    Ocena: 12
    Witam

    Opendialog nie wczytuje plików tylko zwraca ścieżke do pliku który należy potem otworzyć. Z savedialog jest tak samo.

    program należy napisac tak:

    var
    p:text;
    linia:string;
    begin
    if opendialog1.execute then
    begin
    assign(p,savedialog1.Filename);
    reset(p);
    while not eof(p) do
    begin
    readln(p,linia); {wczytanie lini z pliku}
    {tutaj dopisz badanie lini i wpisanie jej do odpowiedniego komponentu}
    end;
    end;
    end.
  • REKLAMA
  • Pomocny post
    #5 1533139
    K_o_n_r_a_d
    Poziom 23  
    Posty: 318
    Pomógł: 86
    Ocena: 9
    Łuk_F napisał:
    assign(p,savedialog1.Filename);

    Proponuję zamienić na:
    Cytat:
    assignfile(p,opendialog1.Filename);
REKLAMA