Запись string-вой строки в текстовый файл

← →
gvv (2005-09-28 12:46) [0]

Здравствуйте. У меня строка s="0000", мне ее надо скопировать в text-вый файл, при чем так чтобы при записи в файл 0-и не заменялись пробелами, как это сделать?

← →
Tonich © (2005-09-28 12:50) [1]

а чего это вдруг нули должны заменяться пробелами?

← →
umbra © (2005-09-28 12:50) [2]

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

← →
umbra © (2005-09-28 12:53) [3]

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

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

← →
gvv (2005-09-28 12:54) [4]

примерный текст программы
s:="0"
append(f);
for i1:=0 to 10 do writeln(f,s);
closefile(f);

← →
Tonich © (2005-09-28 12:55) [5]

если я конечно правильно тебя понял )
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:57) [6]

var
F:TextFile;
S:string;
begin
s := "0000";
AssignFile(F,"C:\!!!.txt");
Rewrite(F);
Writeln(F,S);
CloseFile(F);
end;

Да.

← →
Tonich © (2005-09-28 13:01) [7]

что да?

← →
gvv (2005-09-28 13:03) [8]

Да,примерно так.

← →
IceBeerg © (2005-09-28 13:25) [9]

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

← →
gvv (2005-09-28 13:35) [10]

Небольшое уточнение:
var
F:TextFile;
S:string;
begin
s := maskedit1.Text;//!! маска !99999;1;0
AssignFile(F,"C:\!!!.txt");
Rewrite(F);
Writeln(F,S);
CloseFile(F);

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

← →
gvv (2005-09-28 13:51) [13]

Я понял в чем дело надо изменить маску !99999;1;0 на !99999;1;

gvv (28.09.05 13:51) [13]
И что? Полу чилось? 8(

Запись string-вой строки в текстовый файл Найти похожие ветки