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

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

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

как текст из файла txt поместить в буфер array [0..255] of char [D5]

Страницы: < 1 2
volentin © (2003-01-23 17:49:00)
привет.
читаем данные из файла а дальше

Anatoly Podgoretsky (2003-01-24 21:10:00) [21]
Morfein © (24.01.03 20:40)
Если бы это было возможно

bis (2003-01-24 20:57:00) [22]
еще определи, что такое правильный ответ ))

Morfein (2003-01-24 20:40:00) [23]
млин... проста поставь нормально вопрос :))

volentin (2003-01-24 20:08:00) [24]
так что правильный ответ никто не знает
или правильногго ответа не существует.

i-C3H7OH (2003-01-24 17:07:00) [25]
ничего не понимаю, чо ты хочешь?
ведь любую строку можно записать в файл или с буфером проще?

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 16:56:00) [26]
отклкнитесь мастера не бросайте на произвол.

volentin (2003-01-24 14:53:00) [27]
s.add(st);ну и т.д.
не выходит или что

Anatoly Podgoretsky (2003-01-24 14:00:00) [28]
Так может ты вообще не записываешь в файл?

Игорь Шевченко (2003-01-24 14:00:00) [29]
ДНК

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

Viktor Kushnir (2003-01-24 08:51:00) [31]
st: array[0..128] of Char;
s:string;
.....
For i := 0 to 128 do s := s + st[i];

volentin (2003-01-24 01:46:00) [32]
можно ли до бавить в буфер string?
очень надо
всем спасибо за ответы.

Юрий Зотов (2003-01-23 22:35:00) [33]
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-23 21:35:00) [34]
можно ли до бавить в буфер string? так не выходит.
st: array[0..128] of Char;
s:string;
.....
lstrcpyn(st, s);

Юрий Зотов (2003-01-23 19:00:00) [35]
Сначала читаем, потом записываем... что за бред?
Сразу в буфер и читать, прямо в двоичном виде, вот и все.

ZmeiGorin (2003-01-23 18:58:00) [36]
??? а TFileStream или TStringlist не подойдет???

MBo (2003-01-23 18:25:00) [37]
>KDenis
>array of string ReadLN
???????

KDenis (2003-01-23 18:13:00) [38]
Неужели такой маленький файл?
Может лучше array of string? (без [0..255])
А читай функцией ReadLN

mrcat (2003-01-23 18:12:00) [39]
...а дальше записываем в array[0..255] of char;
var
MyArray: array[0..255] of char;
...
ReadLn(File, MyArray);
...

MBo (2003-01-23 17:53:00) [40]
как читаем?

Страницы: < 1 2

Наверх

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