paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 18:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed crash during converting .rst file

Browse Source 
git-svn-id: trunk@10494 -
This commit is contained in:
mattias 2007-01-22 22:30:52 +00:00
parent e707c31119
commit 571a55ad60
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/idetranslations.pas
View File

@ -213,10 +213,13 @@ begin
Result:=false;
try
fs:=TFileStream.Create(InFilename,fmOpenRead);
SetLength(s,fs.Size);
if s='' then exit;
fs.Read(s[1],length(s));
fs.Free;
try
SetLength(s,fs.Size);
if s='' then exit;
fs.Read(s[1],length(s));
finally
fs.Free;
end;
NextLineStartPos:=1;
while NextLineStartPos<=length(s) do begin
@ -267,6 +270,9 @@ begin
Result:=true;
except
on E: Exception do begin
DebugLn(['ReadRSTFile InFilename="',InFilename,'" Error=',E.Message]);
end;
end;
end;
@ -422,7 +428,7 @@ begin
OldContent:=TMemoryStream.Create;
OldContent.LoadFromFile(OutFilename);
ContentChanged:=CompareMemStreamText(NewContent,OldContent);
OldContent.Free;
FreeAndNil(OldContent);
end else begin
ContentChanged:=true;
end;
@ -435,6 +441,7 @@ begin
end;
except
on E: Exception do begin
DumpExceptionBackTrace;
DebugLn(['ConvertToGettextPO ',E.Message]);
end;
end;