Скачать: CL | DM;

Запись 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);

---

← →
begin...end ©   (2005-09-28 13:37) [11]

> umbra ©   (28.09.05 12:53) [3]
> не char a chr

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

:-)

---

← →
IceBeerg ©   (2005-09-28 13:44) [12]

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

---

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

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

---

← →
IceBeerg ©   (2005-09-28 13:58) [14]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.028 c