[larin]

Имеется текстовый файл в нем содержится

вася;отличник
петя;двоешник
аня;ударница


надо написать программку которая присваивает a[i]:='вася' b[i]:='отличник' где i номер строки...

[lmikle]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

var   a, b : Array Of String;   AList : TStringList;   I : Integer;   Idx : Integer; begin   SetLength(a,0);   SetLength(b,0);   AList := TStringList.Create;   Try      AList.LoadFromFile('здесь имя файла');      For I := 0 To AList.Count-1 Do         Begin            Idx := Pos(';',AList[i]);            If Idx > 0 Then              Begin                 SetLength(a,Length(a) + 1);                 SetLength(b,Length(b) + 1);                 a[High(a)] := Copy(AList[i],1,Idx-1);                 b[High(b)] := Copy(AList[i],Idx+1,Length(AList[i]) - Idx + 1);              End;         End;   Finally     AList.Free;   End;  end;

все...

[Nyctos Kasignete]

Еще проще — с использованием объекта TStringList и его атрибутов Names и Values. Свойству NameValueSeparator предварительно присвоить значение ';'

[larin]

вот,спасибо,выручили.Все работает на отлично.Всем +++