Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с ТХТ [D7, XP]

xozain © (2011-05-25 21:30:00)
Доброе время суток. Жизнь столкнула с Delphi, я не сам :). Помогите. Задача следующая. Нужно открыть тхт файл и в массив засунуть данные с файла, массив можно текстовый. Данные в текстовом файле записаны через пробел (внешне похож на массив), сколько строк и столбцов данных будет - не оговорено. Сделать надо в console application. Спасибо всем за внимание.

Anatoly Podgoretsky (2011-05-26 08:43:00) [1]
Удалено модератором

Ega23 (2011-05-26 08:15:00) [2]
Удалено модератором

Германн (2011-05-26 00:48:00) [3]
Удалено модератором

Palladin (2011-05-25 23:51:00) [4]
Удалено модератором

Ega23 (2011-05-25 23:16:00) [5]
Удалено модератором

xozain (2011-05-25 22:56:00) [6]
Ega23 Спасибо, все заработало :)

xozain (2011-05-25 22:43:00) [7]

> Brain.dll

А где его взять можно и как подключить? Я то думал просто в uses дописать что то надо будет.

clickmaker (2011-05-25 22:40:00) [8]
> Может модуль какой подключить надо?

ага. Brain.dll

xozain (2011-05-25 22:39:00) [9]
Может модуль какой подключить надо?

xozain (2011-05-25 22:27:00) [10]

> [Error] Project1.dpr(9): Undeclared identifier: 'TStringList'
>
> Чет ругается на строчку.

Ошибка при объявлении переменных

xozain (2011-05-25 22:26:00) [11]
[Error] Project1.dpr(9): Undeclared identifier: 'TStringList'

Чет ругается на строчку.

Ega23 (2011-05-25 22:14:00) [12]
var strArr: array of array of string; list1, list2: TStringList; i, j: Integer; begin list1 := TStringList.Create; try list2 := TStringList.Create; try list2.Delimiter := ' '; list1.LoadFromFile(...); SetLength(strArr, list1.Count); for j := 0 to list1.Count - 1 do begin list2.DelimitedText := list1[j]; SetLength(strArr[j], list2.Count); for i := 0 to list2.Count - 1 do strArr[j][i] := list2[i]; end; finally list2.Free; end; finally list1.Free; end; end;

Писал прямо здесь, не проверял

clickmaker (2011-05-25 22:11:00) [13]
> Только не компилиться

скобки и точки с запятой посчитай. Мало ли, лишнее где

RWolf (2011-05-25 22:07:00) [14]
sl.Delimiter := ' '; sl.DelimitedText := s;

xozain (2011-05-25 22:05:00) [15]

> TStringList.DelimitedText

А можно поподробней?

RWolf (2011-05-25 22:03:00) [16]
TStringList.DelimitedText

xozain (2011-05-25 22:01:00) [17]
Трудность в переводе из строки в массив.
AssignFile(T1,'c:\1\test.txt');
Reset(T1);
While not (Eof(T1) do
Begin;
ReadLn(T1,S);
j:= length(s) - 1;
for i:= 0 to j do
begin;
If S[i] = ' ' then;

end.
End;
CloseFile(T1);

Вот то что я уже навоял. Только не компилиться :(

clickmaker (2011-05-25 21:56:00) [18]
и в чем трудности?

Ega23 (2011-05-25 21:55:00) [19]

> xozain ©
> Жизнь столкнула с Delphi, я не сам :). Помогите.

Хосяина, зарплатама нет - работама нет!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »