1. 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) RSS

    • ava bakagaijin 30.11.2015 17:58 # +2

      Сишнику дали в руки Делфи?
      Ответить

      • ava inkanus-gray 03.12.2015 14:06 # +1

        Если судить по отсутствию FreeMem, то скорее жабопитуху.
        Ответить

    • ava CHayT 30.11.2015 18:15 # +1

      const BUFSIZE=1
      > Of course, I'd also suggest that whoever was the genius who thought it was a good idea to read things ONE F*CKING BYTE AT A TIME with system calls for each byte should be retroactively aborted.
      Ответить

    • ava ponchic 30.11.2015 20:12 # −2

      Ничего не понель, поставил лайк типо понель.
      Ответить

    • ava bormand 30.11.2015 20:16 # +3

      Кстати, а оно же каждый второй символ пропускает?
      Ответить

      • ava Kozel 03.12.2015 14:32 # 0

        Самая гадкая ошибка начинающего программиста, которую я знаю. Потом джва дня таращишься в код и не понимаешь, в какую вселенную тебя засунули, пока ты спал. Я сейчас минут 5 не мог понять, в чём дело.
        Ответить

    • ava gost 30.11.2015 20:23 # 0

      >>> repeat
      А это говно не навернётся на пустом файле?
      Ответить

    • ava Vindicar 30.11.2015 21:20 # +4

      Столько комментов, и все молчат про memory leak? GetMem() то в цикле.
      Ответить

      • ava bormand 30.11.2015 21:24 # +1

        А что, в паскале нет GC?
        Ответить

        • ava kgm-rj 30.11.2015 23:38 # 0

          В паскале нет. Хотя, про современные ничего не знаю. В потомках точно есть.
          Ответить

    • ava Vince 03.12.2015 09:53 # +2 

      procedure TForm1.FormCreate(Sender: TObject);
var File_Name:String;
begin
  Memo1.Clear;
  File_Name:='G:\test1.txt';   //сюда вбиваем имя 
  Memo1.Lines.LoadFromFile(File_Name);
end;
      Ответить

    Добавить комментарий