Source Code for Me (s-c.me)

Allows you to paste souce code to blogs! Adapted for Twitter! Here is Search Form in case you missed your code.
Code:
Selected Language:
Show Linenumbers:
Short link for Twitter:
HTML:

HTML view:

Copy Source | Copy HTML
  1. class procedure TFileUtils.SaveStrToFile(SrcStr: string; FileName: string);
  2. var
  3.   FS: TFileStream;
  4. begin
  5.   FS := TFileStream.Create(FileName, fmCreate);
  6.   try
  7.     FS.WriteBuffer(SrcStr[1], Length(SrcStr) * SizeOf(SrcStr[1]));
  8.   finally
  9.     FS.Free;
  10.   end;
  11. end;



Based on Manoli.Net's CodeFormatter. Made by Topbot (c) 2008-2012