1. Список говнокодов пользователя Firewa11er

    Всего: 1

  2. Pascal / Говнокод #19109

    −44

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    procedure TForm1.FormCreate(Sender: TObject);
 
const BUFSIZE=1; EOLN=#13;
 
var   TempString : String ;
      Symb       : PChar;
      FText      : TFileStream;
      File_Name:String;
 
begin
  Memo1.Clear;
 // File_Name:='D:\Projects\Bpl\ТЗ\testlog.txt';
  File_Name:='G:\test1.txt';   //сюда вбиваем имя 
  FText:=TFileStream.Create(File_Name,fmShareDenyNone);   //открываем
  FText.Seek(0,soFromBeginning);    //переходим на начало
  repeat
      GetMem(Symb,BUFSIZE);             //выделяем память под символ для чтения
      FText.Read(Symb^,BUFSIZE);        //читаем
      TempString:=TempString+Symb^;  //складываем символы в строку
      if (Symb^=EOLN) then                 //если конец строки то выводим строку в мемо и "обнуляем"
        begin
          Memo1.Lines.Add(TempString);
          TempString:='';
        end;
  until FText.Read(Symb^,BUFSIZE)=0;   //пока читается
end;

    Пятиминутка юмора

    Firewa11er, 30 Ноября 2015

    Комментарии (15)