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

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

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

Запись string-вой строки в текстовый файл [D5, XP]

gvv © (2005-09-28 12:46:00)
Здравствуйте. У меня строка s='0000', мне ее надо скопировать в text-вый файл, при чем так чтобы при записи в файл 0-и не заменялись пробелами, как это сделать?

IceBeerg (2005-09-28 13:58:00) [1]
gvv (28.09.05 13:51) [13]
И что? Полу чилось? 8(

gvv (2005-09-28 13:51:00) [2]
Я понял в чем дело надо изменить маску !99999;1;0 на !99999;1;

IceBeerg (2005-09-28 13:44:00) [3]
gvv (28.09.05 13:35) [10]
С записью в файл ту все нормально, ты посмотри, что присваешвется переменнгой sиз maskedit1.Text!!!

begin...end (2005-09-28 13:37:00) [4]
> umbra © (28.09.05 12:53) [3]
> не char a chr

А какая разница?

:-)

gvv (2005-09-28 13:35:00) [5]
Небольшое уточнение:
var
F:TextFile;
S:string;
begin
s := maskedit1.Text;//!! маска !99999;1;0
AssignFile(F,'C:\!!!.txt');
Rewrite(F);
Writeln(F,S);
CloseFile(F);

IceBeerg (2005-09-28 13:25:00) [6]
gvv (28.09.05 13:03) [8]
Да? Ну вот запустил... вот результат их файла C:\!!!.txt - 0000

gvv (2005-09-28 13:03:00) [7]
Да,примерно так.

Tonich (2005-09-28 13:01:00) [8]
что да?

gvv (2005-09-28 12:57:00) [9]
var
F:TextFile;
S:string;
begin
s := '0000';
AssignFile(F,'C:\!!!.txt');
Rewrite(F);
Writeln(F,S);
CloseFile(F);
end;

Да.

Tonich (2005-09-28 12:55:00) [10]
если я конечно правильно тебя понял )
var F:TextFile; S:string; begin s := '0000'; AssignFile(F,'C:\!!!.txt'); Rewrite(F); Writeln(F,S); CloseFile(F); end;

gvv (2005-09-28 12:54:00) [11]
примерный текст программы
s:='0'
append(f);
for i1:=0 to 10 do writeln(f,s);
closefile(f);

umbra (2005-09-28 12:53:00) [12]

> а "0" это char(30) или char(0)?

я краснею. не char a chr

Tonich (2005-09-28 12:50:00) [13]
а чего это вдруг нули должны заменяться пробелами?

umbra (2005-09-28 12:50:00) [14]
а "0" это char(30) или char(0)?

Наверх

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