Changeset 20 for trunk/IDE/Forms/UMainForm.pas

Timestamp:

Nov 9, 2010, 12:21:56 PM (14 years ago)

Author:

george

Message:

• Modified: Tokenizer was using slow Text property of TStringList. Replaced by fast native string variable.

File:

• trunk/IDE/Forms/UMainForm.pas (modified) (2 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -73 +73 @@
     Project: TProject;
     Compiler: TCompiler;
-    function GetSource(Name: string; Source: TStringList): Boolean;
+    function GetSource(Name: string; var SourceCode: string): Boolean;
   end;
 
@@ -112 +112 @@
 end;
 
-function TMainForm.GetSource(Name: string; Source: TStringList): Boolean;
+function TMainForm.GetSource(Name: string; var SourceCode: string): Boolean;
 var
   FileName: string;
+  F: TFileStream;
 begin
   FileName := Project.GetDir(True) + Name + '.pas';
-  if FileExists(FileName) then begin
-    Source.LoadFromFile(FileName);
+  if FileExists(FileName) then
+  try
+    F := TFileStream.Create(FileName, fmOpenRead);
+    SetLength(SourceCode, F.Size);
+    if F.Size > 0 then
+      F.Read(SourceCode[1], F.Size);
     Result := True;
+  finally
+    F.Free;
   end else Result := False;
 end;