fork download
copy 
  1.     String temp = ""; // временная строка
  2.     for(int s = 0; s < Memo1->Lines->Count; s++) // цикл пока не кончатся строки в Мемо1
  3.     {
  4.         temp = Memo1->Lines->Strings[s]; // записываем во временную строку
  5.         if(temp.Length() > 0) // если длина строки 0 то ни чего с ней не делать
  6.         {
  7.             for(int i = 1; i <= temp.Length(); i++) // цикл пока есть символы во временной строке
  8.             {
  9.                 temp[i] = (BYTE)temp[i] - 1; // подменяем код символа
  10.             }
  11.         }
  12.         Memo2->Lines->Add(temp); // записываем в Мемо2
  13.     }
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas:1: error: syntax error before `String'
stdout
copy 
Standard output is empty
https://ideone.com/nR1Yj0
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!