김형준 께서 말씀하시기를...

>

>

> Fatal Error: Line Too Long(More than 1023 characters)

>

> 문제의 라인의 문자겟수는 100문자도 되지 않습니다.

>

> 델파이3, 델파이4에서도 같은 에러가 발생됩니다.

>

> 이런 상황을 경험하신 분 있으세요??

>

> 그리고 해결 방안은...

>

>



영대님에게 먼저 감사드립니다..

먼저 그러한 문제점을 수정해 주는 작은 프로그램을 만들었습니다..

저와 같은 상황에 직면하신 분들에게 도움이 되었음 합니다..





unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

OpenDialog1: TOpenDialog;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

Size: LongInt;

Stream: TFileStream;

Output: TFileStream;

I: LongInt;

Buf: Char;

const

Count: LongInt = 0;

begin

if OpenDialog1.Execute then

begin

Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);

Output := TFileStream.Create('jackass.Tmp', fmCreate);



Size := (Stream.Size - 1);

for I := 0 to Size do

begin

Stream.Seek(I, soFromBeginning);

Stream.Read(Buf, 1);



if (I > 0) and (Buf = Chr($0A)) then

begin

Stream.Seek(I-1, soFromBeginning);

Stream.Read(Buf, 1);

if (Buf <> Chr($0D)) then

begin

Buf := Chr($0D);

Output.Write(Buf, 1);

Buf := Chr($0A);

Output.Write(Buf, 1);

end else

begin

Buf := Chr($0A);

Output.Write(Buf, 1);

end;

end else Output.Write(Buf, 1);

end;



Stream.Free;

Output.Free;

end;

end;



end.

김형준 께서 말씀하시기를...

>

> Fatal Error: Line Too Long(More than 1023 characters)

> 문제의 라인의 문자겟수는 100문자도 되지 않습니다.

> 델파이3, 델파이4에서도 같은 에러가 발생됩니다.

> 이런 상황을 경험하신 분 있으세요??

> 그리고 해결 방안은...

>



안녕하세요 김영대입니다

저도 전에 같은 에러를 만나서 프로그램을 처음부터 다시 만든적이

있는데 나중에 알고보니 소스에 특수문자 1 byte 가 있었어요

소스를 hexa 로 떠보세요