Onionmixer: 번역수정

2013-04-04T10:03:46Z

번역수정

← Older revision		Revision as of 10:03, 4 April 2013
Line 1:		Line 1:
	===텍스트 파일에 추가하기 프로그램===		==텍스트 파일에 추가하기 프로그램==

	<syntaxhighlight lang="pascal">		<syntaxhighlight lang="pascal">
Line 35:		Line 35:
	</syntaxhighlight>		</syntaxhighlight>

	이 프로그램을 실행하고 기존의 텍스트 파일의 이름을 입력하고 나면, ~~이에 대한~~ 결과는 ''cat / type'' ~~명령으로~~, 또는 ~~붙은 데이터를 보기 위해~~ 디렉터리에서 이 파일을 마우스로 ~~두 번 눌러서 볼~~ 수 있습니다.
			이 프로그램을 실행하고 기존의 텍스트 파일의 이름을 입력하고 난 뒤, 결과는 ''cat / type'' 명령을 사용하거나, 또는 디렉터리에서 이 파일을 마우스로 더블클릭 하여 추가된 데이터를 확인할 수 있습니다.

	[[Category:StartprogrammingusingObjectPascal]]		[[Category:StartprogrammingusingObjectPascal]]

Onionmixer: SPOP 텍스트파일에추가하기프로그램 페이지 추가

2012-07-26T05:24:34Z

SPOP 텍스트파일에추가하기프로그램 페이지 추가

New page

===텍스트 파일에 추가하기 프로그램===

<syntaxhighlight lang="pascal">
var
FileName: string;
F: TextFile;
Line: string;
i: Integer;
begin
Write('Input an existed file name: ');
Readln(FileName);
if FileExists(FileName) then
begin
// Link file variable (F) with physical file (FileName)
AssignFile(F, FileName);
Append(F); // Open file for appending

Writeln('Please input file contents line by line',
'when you finish write % then press enter');
i:= 1;
repeat
Write('Line # ', i, ' append :');
Inc(i);
Readln(Line);
if Line <> '%' then
Writeln(F, Line); // Write line into text file
until Line = '%';
CloseFile(F); // Release F and FileName connection, flush buffer
end
else
Writeln('File does not exist');
Write('Press enter key to close..');
Readln;
end.
</syntaxhighlight>

이 프로그램을 실행하고 기존의 텍스트 파일의 이름을 입력하고 나면, 이에 대한 결과는 ''cat / type'' 명령으로, 또는 붙은 데이터를 보기 위해 디렉터리에서 이 파일을 마우스로 두 번 눌러서 볼 수 있습니다.
[[Category:StartprogrammingusingObjectPascal]]

StartprogrammingusingObjectPascal:AddToTextFileProgram - Revision history

Onionmixer: 번역수정

Onionmixer: SPOP 텍스트파일에추가하기프로그램 페이지 추가