Q&A
- txt 파일에 append
procedure TForm1.BitBtn1Click(Sender: TObject);
var f:textfile;
begin
Assignfile(f,OpenDialog1.filename);
Append(f);
Writeln(f, 'aaaaaaa');
Flush(f);
CloseFile(f);
end;
OpenDialog1.filename에 있는 txt 내용은
bbbbbbbbbbbbbbbbbb
cccccccccccccccccc
dddddddddddddddddd
ffffffffffffffffff
이런식으로 입력되어 있는데 파일의 첫줄에 aaaaaaaaaaaaa
를 추가하고 싶거든요....
아시는분 갈켜주세엽~~ 감사합니다.
var f:textfile;
begin
Assignfile(f,OpenDialog1.filename);
Append(f);
Writeln(f, 'aaaaaaa');
Flush(f);
CloseFile(f);
end;
OpenDialog1.filename에 있는 txt 내용은
bbbbbbbbbbbbbbbbbb
cccccccccccccccccc
dddddddddddddddddd
ffffffffffffffffff
이런식으로 입력되어 있는데 파일의 첫줄에 aaaaaaaaaaaaa
를 추가하고 싶거든요....
아시는분 갈켜주세엽~~ 감사합니다.
2
COMMENTS
-
-
TStringList를 사용하시면 편한데요..삽입 삭제등은..
var
StrL:TStringList;
begin
StrL:TStringList.Create;
StrL.LoadfromFile('파일이름');
StrL.Insert(인덱스번호,'들어갈내용');
StrL.SaveToFile('파일이름');
StrL.Free;
end;
여기서 첫째 줄이니깐 인덱스번호가 0 이 되겠죠..
그럼..
델사랑 wrote:
> procedure TForm1.BitBtn1Click(Sender: TObject);
> var f:textfile;
> begin
> Assignfile(f,OpenDialog1.filename);
> Append(f);
> Writeln(f, 'aaaaaaa');
> Flush(f);
> CloseFile(f);
> end;
>
> OpenDialog1.filename에 있는 txt 내용은
>
> bbbbbbbbbbbbbbbbbb
> cccccccccccccccccc
> dddddddddddddddddd
> ffffffffffffffffff
>
> 이런식으로 입력되어 있는데 파일의 첫줄에 aaaaaaaaaaaaa
> 를 추가하고 싶거든요....
>
> 아시는분 갈켜주세엽~~ 감사합니다.
>
(NOTICE) You must be logged in to comment on this post.
-
- 어린왕자
- •
- 2001.07.05 02:28
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.07.05 07:01Variant에 어떠한 값도 없으므로 그런 에러가 발생합니다. 비교하기 전에 먼저 값을 할당 해 보세요 v1 :...
-
- 정성훈
- 2001.07.05 02:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초
- •
- 2001.07.05 02:20
- 1 COMMENTS
- /
- 0 LIKES
-
박구남•2001.07.06 11:26저도 같은 질문을 델마당에 올린적이 있는데요 이곳에선 답변이 없네요 :) OS마다 틀리다고 하네요 win2k ...
-
- 어린왕자
- 2001.07.05 01:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.07.05 01:31
- 2 COMMENTS
- /
- 0 LIKES
-
Ziker•2001.07.05 01:41안녕하세요 지커(김성규)입니다. TQuery 컴포넌트에 sql 를 작성할때 프라퍼티 창에서 해 주시든... 코...
-
초보•2001.07.05 03:53님께서 아래글중에 잘못 해석하신 부분이 있어 다시 수정합니다. 이래글중 편집을 님께선 Query해온 결과...
-
- kd
- •
- 2001.07.05 01:19
- 1 COMMENTS
- /
- 0 LIKES
-
반칙왕•2001.07.05 18:45kd wrote: > text 파일을 Image에 출력하고 싶은데 어떡하면 될지... > > 구현방법 부탁 드립니다. > ...
-
- 델초
- 2001.07.05 01:15
- 0 COMMENTS
- /
- 0 LIKES
-
- goldlee
- 2001.07.06 00:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 박병순
- 2001.07.05 00:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 최진영
- •
- 2001.07.05 00:41
- 1 COMMENTS
- /
- 0 LIKES
-
승추니•2001.07.05 02:59최진영 wrote: > 안녕하세요 > > 시작과 끝점의 x,y 좌표를 가지고 있는 > > 임의의 직성의 각도를 ...
-
- 김동민
- •
- 2001.07.05 00:03
- 2 COMMENTS
- /
- 0 LIKES
-
Ziker•2001.07.05 00:20안녕하세요 지커(김성규)입니다... 자답을 하셨네요.. 축하 드립니다.. 다음과 같은 방법을 쓰셔두 됩...
-
김동민•2001.07.05 00:07파라미터로 폼을 넘겨줘서 해결했어요..^^ 그럼 이만... 김동민 wrote: > 지금 A라는 컴포넌트를 만들...
-
- 진짜초보
- •
- 2001.07.04 23:59
- 1 COMMENTS
- /
- 0 LIKES
-
Ziker•2001.07.05 00:06안녕하세요 지커(김성규)입니다. 이 게시판에서 이전에 올라온 질문 내용의 답변을 발췌한 것입니다. ...
-
-
Ziker•2001.07.05 00:01안녕하세요 지커(김성규)입니다. 다음과 같이 하십시오. WinExec(PChar('COMMAND.COM /C ' + TmpDir)...
-
델초보•2001.07.05 01:22Ziker wrote: > 안녕하세요 지커(김성규)입니다. > > 다음과 같이 하십시오. > > WinExec(PChar('CO...
-
Ziker•2001.07.05 19:50안녕하세요 지커(김성규)입니다~~ 이론이론.. 안되신다구요? 헉.. 전 테스트 했을때 되길래 되는줄 알...
-
-
-
Ziker•2001.07.04 23:45안녕하세요 지커 입니다. 엑서스 바이올레이션 에러는.. 메모리 에러와 동일 하다고 할수 있는데, 특정...
-
-
- 델사랑
- •
- 2001.07.04 23:21
- 2 COMMENTS
- /
- 0 LIKES
procedure TForm1.BitBtn1Click(Sender: TObject); var f:textfile; begin Assignfile(f,OpenDialog1.filename); Append(f); Writeln(f, 'aaaaaaa'); Flush(f); CloseFile(f); end; OpenDialog1.filename에 있는 txt 내용은 bbbbbbbbbbbbb...-
Ziker•2001.07.04 23:54안녕하세요 지커 입니다. 다음과 예제를 참조 하세요. procedure TForm1.Button1Click(Sender: T...
-
참이슬•2001.07.04 23:46TStringList를 사용하시면 편한데요..삽입 삭제등은.. var StrL:TStringList; begin StrL:TS...
-
-
- 크니
- 2001.07.04 21:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.07.04 21:15
- 2 COMMENTS
- /
- 0 LIKES
-
Ziker•2001.07.04 21:26안녕하세요 지커 입니다. Function CopyFile(Source,Target:String):Integer; Var RRead : Inte...
-
초보•2001.07.04 21:49Ziker wrote: > 안녕하세요 지커 입니다. > > > Function CopyFile(Source,Target:String):Integer;...
-
- 어린왕자
- 2001.07.04 20:52
- 0 COMMENTS
- /
- 0 LIKES
-
-
Ziker•2001.07.04 21:21안녕하세요 지커 입니다. 실제적으로 Database 에서 나는 에러는 아닌거 같구요 단순히 네트웍상의 퍼...
-
다음과 예제를 참조 하세요.
procedure TForm1.Button1Click(Sender: TObject);
var
stFileText: TStringList;
begin
stFileText := TStringList.Create;
stFileText.LoadFromFile(OpenDialog1.filename);
stFileText.Insert(0,'ccccccccccccc');
stFileText.SaveToFile(OpenDialog1.filename);
end;
델사랑 wrote:
> procedure TForm1.BitBtn1Click(Sender: TObject);
> var f:textfile;
> begin
> Assignfile(f,OpenDialog1.filename);
> Append(f);
> Writeln(f, 'aaaaaaa');
> Flush(f);
> CloseFile(f);
> end;
>
> OpenDialog1.filename에 있는 txt 내용은
>
> bbbbbbbbbbbbbbbbbb
> cccccccccccccccccc
> dddddddddddddddddd
> ffffffffffffffffff
>
> 이런식으로 입력되어 있는데 파일의 첫줄에 aaaaaaaaaaaaa
> 를 추가하고 싶거든요....
>
> 아시는분 갈켜주세엽~~ 감사합니다.
>