Przypisanie

0

Witam.

W pliku txt mamy np. takie dane:

800;88888;8;7;7;7;8;
(...)
1000;2000;1;3;4;5;6;
1001;2333;3;4;4;6;7;
1002;2000;2;3;4;5;6;

Jak u licha po naciśnięciu Buttona pobrać z niego ostatnią linię: (1002;2000;2;3;4;5;6;) i wartości oddzielone średnikami przypisać do kolejnych np. Label'i. - Caption ???

pomóżcie proszę... [love]

0

uses strutils;

var
tmp:tstringlist;

tmp:=tstringlist.create;
tmp.loadfromfile('jakiś_plik');
tmp.text:=tmp[tmp.count-1];
tmp.text:=ansireplacetext(tmp.text, ';', #13#10);

I teraz wartości oddzielone średnikami masz w kolejnych elementach tstringlist, czyli dajesz np. label1.caption:=tmp[0]; label2.caption:=tmp[1]; itd.---------------------------
Delphi 6

Pozdrówka

0

DZIĘKI WIELKIE!!!

Miałem Delphi5 i były pewne problemy ale na D6 wszystkie jest tak jak chciałem.
jeszcze raz dzięki !!! [hurra] [browar]

1 użytkowników online, w tym zalogowanych: 0, gości: 1