Rozbudowanie przykładu

2002-03-23 16:34
BonZai
0

Jak rozbudować przykład do Delphi z tej strony - ten co za pomocą średnika rozdziela tekst z pliku na 2 kolumny, tak aby rozdzielał na 3. Próbowałem sam to zrobić ale coś źle rozdziela.

Pozostało 580 znaków

2002-04-14 23:34
_LKS_
0

nie moglem znalezc tego przykladu :)
ale zrobilem to na swoj sposob
umieszczasz na formie Memo i 3 ListBox'y
a teraz procedura, ktora rozdzieli tekst:

var
i: Integer;
S: String;
begin

Memo1.Lines.LoadFromFile('c:\jakis_plik.txt');

for i := 0 to Memo1.Lines.Count - 1 do
begin
S := Memo1.Lines[i];
while Pos(';', S) &gt 0 do
begin
ListBox1.Items.Add(Copy(S, 1, Pos(';', S)-1));
Delete(S, 1, Pos(';', S));
ListBox2.Items.Add(Copy(S, 1, Pos(';', S)-1));
Delete(S, 1, Pos(';', S));
ListBox3.Items.Add(Copy(S, 1, Pos(';', S)-1));
Delete(S, 1, Pos(';', S));
end;
end;
end;

jezeli czegos nie rozumiesz to pisz :)

---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

Pozostało 580 znaków

Liczba odpowiedzi na stronę

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