|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите прочитать из файла
Имеется текстовый файл в нем содержится
вася;отличник петя;двоешник аня;ударница надо написать программку которая присваивает a[i]:='вася' b[i]:='отличник' где i номер строки... |
#2
|
|||
|
|||
Код:
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; все... |
#3
|
|||
|
|||
Еще проще — с использованием объекта TStringList и его атрибутов Names и Values. Свойству NameValueSeparator предварительно присвоить значение ';'
|
#4
|
|||
|
|||
вот,спасибо,выручили.Все работает на отлично.Всем +++
|