как текст из файла txt поместить в буфер array

← →
volentin (2003-01-23 17:49) [0]

привет.
читаем данные из файла а дальше

← →
MBo © (2003-01-23 17:53) [1]

как читаем?

← →
mrcat © (2003-01-23 18:12) [2]

...а дальше записываем в array[0..255] of char;
var
MyArray: array[0..255] of char;
...
ReadLn(File, MyArray);
...

← →
KDenis © (2003-01-23 18:13) [3]

Неужели такой маленький файл?
Может лучше array of string? (без [0..255])
А читай функцией ReadLN

← →
MBo © (2003-01-23 18:25) [4]

>KDenis
>array of string ReadLN
???????

← →
ZmeiGorin © (2003-01-23 18:58) [5]

??? а TFileStream или TStringlist не подойдет???

← →
Юрий Зотов © (2003-01-23 19:00) [6]

Сначала читаем, потом записываем... что за бред?
Сразу в буфер и читать, прямо в двоичном виде, вот и все.

← →
volentin (2003-01-23 21:35) [7]

можно ли до бавить в буфер string? так не выходит.
st: array[0..128] of Char;
s:string;
.....
lstrcpyn(st, s);

← →
Юрий Зотов © (2003-01-23 22:35) [8]

var
F: file of Byte;
Len: integer;
Buff: array of Byte;
begin
AsiignFile(F, "FullFileName.txt");
Reset(F);
Len := FileSize(F);
SetLength(Buff, Len);
BlockRead(F, Buff, Len);
CloseFile(F)
end;

← →
volentin (2003-01-24 01:46) [9]

можно ли до бавить в буфер string?
очень надо
всем спасибо за ответы.

← →
Viktor Kushnir © (2003-01-24 08:51) [10]

st: array[0..128] of Char;
s:string;
.....
For i := 0 to 128 do s := s + st[i];

← →
volentin (2003-01-24 13:54) [11]

const
s : String = "primer";
var
st: array[0..128] of Char;
i:integer;
....
For i := 0 to 128 do s := s + st[i];
проверяю, сохраняю st в файл.
в итоге файл пуст,что не так.

← →
Игорь Шевченко © (2003-01-24 14:00) [12]

ДНК

← →
Anatoly Podgoretsky © (2003-01-24 14:00) [13]

Так может ты вообще не записываешь в файл?

← →
volentin (2003-01-24 14:53) [14]

s.add(st);ну и т.д.
не выходит или что

← →
volentin (2003-01-24 16:56) [15]

отклкнитесь мастера не бросайте на произвол.

← →
i-C3H7OH (2003-01-24 17:07) [16]

ничего не понимаю, чо ты хочешь?
ведь любую строку можно записать в файл или с буфером проще?

const
s : String = "primer";
var
st: array of Char;
i:integer;
....
SetLength(st, Length(s)+1);
For i := 0 to Length(s)-1 do st := st + s[i];
st[Length(s)] := #0;

может так? х.з.

← →
volentin (2003-01-24 20:08) [17]

так что правильный ответ никто не знает
или правильногго ответа не существует.

← →
Morfein © (2003-01-24 20:40) [18]

млин... проста поставь нормально вопрос :))

← →
bis © (2003-01-24 20:57) [19]

еще определи, что такое правильный ответ ))

← →
Anatoly Podgoretsky © (2003-01-24 21:10) [20]

Morfein © (24.01.03 20:40)
Если бы это было возможно

← →
Моджахед (2003-01-24 21:25) [21]

Интересная дискуссия...

← →
volentin (2003-01-24 21:32) [22]

s : String;
st: array[0..128] of Char;
...
нужно эту строку s: = "primer";
добавить в буфер st
и все.

← →
Моджахед (2003-01-24 21:38) [23]

s := "primer"; StrCopy (st,PChar(s));

Так что-ли?
Или что вообще нужно-то?

← →
volentin (2003-01-24 22:53) [24]

>Моджахед (24.01.03 21:38)

то что надо благодарствую.еще
как задать длину строки?

← →
Моджахед (2003-01-24 23:14) [25]

SetLength?

Или что вообще под строкой разумеется?

← →
volentin (2003-01-24 23:39) [26]

задать количество символов в строке

← →
volentin (2003-01-25 00:07) [27]

Const
dd = 75;
...
If Length(s) = dd Then
StrCopy (st, PChar(s));
пишет только одну строку длиной 75 символов и стоп.
т.е.не переносит на следующую.
а надо до упора.

← →
Юрий Зотов © (2003-01-25 00:13) [28]

Боже, какой кошмар...

← →
volentin (2003-01-25 01:30) [29]

кошмар в переди...

← →
Чих-пых (2003-01-25 03:24) [30]

Правильный ответ: почитать книжку по программированию

← →
Моджахед (2003-01-25 03:25) [31]

это... что-ли, парень, это, как его, все-таки не нужно с такими вопросами так сразу и в форум, может это, надо чего-то хоть знать?!

← →
volentin (2003-01-25 13:28) [32]

кто знает тому легко
а не бось когда не знал сам спрашивал.
конечно потом удивляешся чего я спрашивал и сам мог допетрить.
форум есть это.если вопрос легкий то отвечать не надо?
но он легкий не для всех.
давайте будем всех отпровлять в хелпы,класно будет.
как сложить в файл строки я не спрашивая,я знаю.
почитал хелп но я там не нашел как разбить строку на строки в
буфере.

Тут книга не поможет.

← →
volentin (2003-01-25 14:42) [34]

всем спасибо за участие ,я сам допетрил

← →
shulc (2003-01-25 14:44) [35]

По-моему он издевается

Ты думаешь, тогда это у него плохо выходит.

2 volentin
а чем сам string не угодил?

s:string[255] или ANSIString
ИМХО: тот же самый array of char с гораздо большей функциональностью

← →
volentin (2003-01-25 22:20) [38]

>Palladin
что можно сделать с буфером того со стрингом не сделаешь
а вообще я не издевался
но за это время у меня возник вопрос
как в конец буфера добавить символы?

← →
volentin (2003-01-27 00:26) [39]

мастера вы где?

что можно сделать с буфером того чего не сделаешь со стрингом?

как текст из файла txt поместить в буфер array Найти похожие ветки