Работа с ТХТ

← →
xozain © (2011-05-25 21:30) [0]

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

← →
Ega23 © (2011-05-25 21:55) [1]

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

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

← →
clickmaker © (2011-05-25 21:56) [2]

и в чем трудности?

← →
xozain © (2011-05-25 22:01) [3]

Трудность в переводе из строки в массив.
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);

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

← →
RWolf © (2011-05-25 22:03) [4]

TStringList.DelimitedText

← →
xozain © (2011-05-25 22:05) [5]

> TStringList.DelimitedText

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

← →
RWolf © (2011-05-25 22:07) [6]

sl.Delimiter := " "; sl.DelimitedText := s;

← →
clickmaker © (2011-05-25 22:11) [7]

> Только не компилиться

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

← →
Ega23 © (2011-05-25 22:14) [8]

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;

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

← →
xozain © (2011-05-25 22:26) [9]

[Error] Project1.dpr(9): Undeclared identifier: "TStringList"

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

← →
xozain © (2011-05-25 22:27) [10]

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

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

← →
xozain © (2011-05-25 22:39) [11]

Может модуль какой подключить надо?

← →
clickmaker © (2011-05-25 22:40) [12]

> Может модуль какой подключить надо?

ага. Brain.dll

← →
xozain © (2011-05-25 22:43) [13]

> Brain.dll

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

Ega23 Спасибо, все заработало :)

Удалено модератором

Работа с ТХТ Найти похожие ветки