Форум: "Начинающим";
Текущий архив: 2011.09.11;
Скачать: [xml.tar.bz2];
ВнизРабота с ТХТ Найти похожие ветки
← →
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 дописать что то надо будет.
← →
xozain © (2011-05-25 22:56) [14]Ega23 Спасибо, все заработало :)
← →
Ega23 © (2011-05-25 23:16) [15]Удалено модератором
← →
Palladin © (2011-05-25 23:51) [16]Удалено модератором
← →
Германн © (2011-05-26 00:48) [17]Удалено модератором
← →
Ega23 © (2011-05-26 08:15) [18]Удалено модератором
← →
Anatoly Podgoretsky © (2011-05-26 08:43) [19]Удалено модератором
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.09.11;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.004 c