paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

tools, lazres:

Browse Source 
* fixed compilation after revision 21051 #be1055dc5c (issue #14260)
* removed unused procedures

git-svn-id: trunk@21083 -
This commit is contained in:
vincents 2009-08-03 09:01:33 +00:00
parent 2c71e957bc
commit 0403cc0cba
1 changed files with 1 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tools/lazres.pp
View File

@ -35,33 +35,7 @@ program LazRes;
{$mode objfpc}{$H+}
uses Classes, SysUtils, FileUtil, LCLProc;
function StreamIsFormInTextFormat(Stream: TMemoryStream): boolean;
const
FormTextStart = 'object ';
var s: string;
OldPos: integer;
begin
SetLength(s,length(FormTextStart));
OldPos:=Stream.Position;
Stream.Read(s[1],length(s));
Result:=AnsiCompareText(s,FormTextStart)=0;
Stream.Position:=OldPos;
end;
function StreamIsFormInFCLFormat(Stream: TMemoryStream): boolean;
const
FormFCLStart = 'TPF0';
var s: string;
OldPos: integer;
begin
SetLength(s,length(FormFCLStart));
OldPos:=Stream.Position;
Stream.Read(s[1],length(s));
Result:=s=FormFCLStart;
Stream.Position:=OldPos;
end;
uses Classes, SysUtils, FileUtil, LCLProc, LResources;
procedure ConvertFormToText(Stream: TMemoryStream);
var TextStream: TMemoryStream;