Witam! :-)
Jesli mam w pliku textowym cos takiego:
a=b=c=1;
e=f=g=2;
h=i=j=3;
To jeak zrobic, zeby "a" bylo w zmiennej 1, b w 2 itd.
Chodzi o to, zeby odzielic poszczegolne texty odzielone znakiem '=' (lub innnym).
0
0
TStringList + STringReplace +F1
or
Pos + Copy + Help
or
wyszukiwarka
or
SplitUnit
0
A ja odpowiem troche bardziej konkretnie :) Dodaj zmienna do zmiennych globalnych:
rozdziel : TStrings;
W OnCreate
rozdziel := TStriongList.Create;
I teraz mozesz uzywac takiej oto procedurki
procedure TForm1.rozdzielanie(text,znak : String);
var
Lancuch : string;
P : Integer;
begin
rozdziel.clear;
Lancuch := text;
P := Pos(znak, Lancuch);
while P > 0 do begin
rozdziel.Add(Copy(Lancuch, 1, P - 1));
Delete(Lancuch, 1, P);
P := Pos(znak, Lancuch);
end;
rozdziel.Add(Lancuch);
end;
Pamietam ze dostalem ta procedurke kiedys dawno na forum troche ja przerobilem i jest teraz w wlasnie tkim stanie i dziala jak trza :)
/* http://4programmers.net/view_faq.php?id=233 Pedros- prosiłbym, żebyś przyłączył się do mojej akcji. Nauczmy ludzi korzystać z zasobów serwisu - m.D. */