[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Программа должна сначала спросить имя, потом спросить сколько раз её вывести, а потом это имя вывести n - раз.
Помогите плз очень нужно.

 

program name;

{$APPTYPE CONSOLE}

uses
SysUtils;
var TmpName : string;
Count,i : Integer;

begin
WriteLn('What is your name? and credit card number');
ReadLn(TmpName);
WriteLn('Enter number te repeat:');
ReadLn(Count);
if Count=0 then exit;
for i:=1 to Count do WriteLn(TmpName);
end.

 

File not found <SYSUTILS.TPU>. Не пашет твоя программа.

 

De-visible
Спасибо, код

работает но есть одно но. Моя прога зачастую ищет и записывает в файл сочетания строк. Нпример:
Строка имени
Стрка адресса

Страка имени 2
Строка адресса 2
итп,
а когда сортируешь через этот код (стрнг листовский) то он все перемешивает, т.е. идут уже не пары а все в каше, сначала имена потом адресса, а хотелось бы что бы все было как найдено только без повторов.

 

я в дельфи вообще не силен...
подскажите пожалуйста как сделать билдер(как пинчбилдер) если есть исходник программы?
в программе нужно менять две переменных перед созданием билда
не надо только говорить о том как это делается без компилятора, мне нужна именно форма где будет 2 едита и кнопка для создания

 

Используй компилятор Delphi pascal compiler DCC32.EXE используемые модули

 

имелось ввиду что это какраз меня не устраивает

 

Slesh выкладывал сырцы своего билда в паплик. Поиск рулит карочи

 

Билдер пинча?? Там же несколько байт(адрес мыла или гейта) заменить в откомпиленном файле - и хватит...

 

Дык, ну да, там у него откомпиленый файл, в ресурсах.

 

Ну вот, а чувак с исходника билдер сделать хочет..

 

ну хоть кто-нибудь сможет помочь?

 

Если только части программы, подлежащие изменению, хранить в ресурсах (или метки, за активацию той или иной части программы отвечающие), а потом делать так же, как многострадальный афтор пинча.

 

А русификатор Делфи есть у кого-нть ? Если есть - дайте ПлиЗ . Заранее спасибо.

 

У меня есть Но заливать долго инет 56кб/сек

 

Жаль , а где взял - не помнишь?

 

А что, для перевода вот этих пяти строк текста сделан большой русификатор? Или он и begin-end переводит?

 

Руссификатор интерфейса лол! Ты что подумал что он руссифицирует синтаксис?

 

http://coderpage.h15.ru/_WORK/download.php?name=DELPHI&sub=HELP&topic=rusdelphi6.rar

руссификатор Delphi 6 ( 1.86 MB )

http://softok.org/dload/coding/delphi/4837dload.html
Русификация для Delphi 3,4,5,6,7 2.5

и есче google.ru
Результаты 1 - 10 из примерно 107 000 для русификатор Delphi. (0,18 секунд)
+ много много рекламы и баннеров

 

Code:

var
  f, i, j, flen, fread: integer;
  Buffer: PChar;
  repl, res : string;
begin
  repl := 'Azik'#0; // Сюда пишешь то, что надо заменить
  res := 'Hulo'#0; // Сюда пишешь такой же длины, на что меняем.
  f := FileOpen('test.exe',fmOpenReadWrite);
  flen := FileSeek(f, 0, 2);
  FileSeek(f, 0, 0);
  Buffer := PChar(AllocMem(flen + 1));
  fread := FileRead(f, Buffer^, flen);
  for i := 0 to fread - 1 - length(repl) do
    begin
      for j := 0 to length(repl) - 1 do
        if Buffer[i + j] <> repl[1 + j] then
          break;
      if j = length(repl) then  // Никогда не делай так!!! :) Мне можно =)
        begin
          FileSeek(f, i, 0);
          FileWrite(f, PChar(res)^, length(res));
        end;
    end;

  FreeMem(Buffer);
  FileClose(f);
end;

Этот код заменяет в файле test.exe буквы Azik и 0-символ на буквы Hulo и 0-символ. Вместо Azik пиши содержимое твоей текстовой переменной.