Nie wiem gdzie umiescic tego posta tutaj czy do Newbie
Szykalem po forum ale nie znalazlem tego czego szukalem:
Mianowicie mam plik textowy a w nim takie cos:
| 2726 | 2004-10-21 | 43 | 22 | 67 | 61 | 41 | 77 | 17 |
I teraz chce zeby to np. Memo czy ListBox'a dodal mi same liczby (bez spacji):
43
22
67
61
41
77
17
Jak mam to zrobic wiem ze trzeba zrobic to ze znak "|" bedzie rozdzielal ale jak :-|
Napisalem takie cos:
procedure TForm1.LoadText(const TextIn: String; Start: Byte);
var
I: Byte;
S: AnsiString;
begin
S := '';
for I := Start to Length(TextIn)do
begin
if TextIn[I] = '|' then
begin
S := Copy(TextIn, Start, I-1);
Exit;
end;
end;
end;
Ale nie dziala jak bym chcial :-/ Czy moze mi ktos pomoc [???]
Z gory wielkie dzieki Panowie i Panie oczywiscie ;)