Генератор символов

[Hacker19_90]

Hacker19_90, потенциально такой код может вернуть строку МЕНЬШЕЙ длины, чем Count (ну, если случайный генератор вернёт не букву и не цифру..)

Согласен! поэтому можно заменить на

Edit1.Text := '';
randomize;
i := 1;
while i <= Count do
begin
      ch := chr(random(43)+48);
      if ch in ['0'..'9', 'A'..'Z'] then
      begin
            Edit1.Text := Edit1.Text + ch;
            Inc(i);
      end;
end;

А что касаемо

не пашет( нажимаю ничего не происходит + прога виснит

Что именно не пашет?

[scroyler]

[Error] Unit1.pas(142): Undeclared identifier: 'ch'
[Error] Unit1.pas(142): Undeclared identifier: 'chr'

[Hacker19_90]

Undeclared identifier: 'ch'

var ch: char;

функция chr должна быть! Или я ошибаюсь?

[scroyler]

var i,Count:integer; var ch: char;

begin
Edit1.Text := '';
randomize;
i := 1;
while i <= Count do
begin
      ch := chr(random(43)+48);
      if ch in ['0'..'9', 'A'..'Z'] then
      begin
            Edit1.Text := Edit1.Text + ch;
            Inc(i);
      end;
end;  end;
    end.

не пашет

[Hacker19_90]

var 
    count: integer;




procedure TForm1.Button1Click(Sender: TObject);
var
    ch: char;
    i: integer;
begin
     Edit1.Text := '';
     randomize;
     i := 1;
     while i <= Count do
     begin
         ch := chr(random(43)+48);
         if ch in ['0'..'9', 'A'..'Z'] then
         begin
              Edit1.Text := Edit1.Text + ch;
              Inc(i);
         end;
    end;
end;

[scroyler]

Проэкт запускается, но ничего не происходит, тупо эдит чистит

[scroyler]

[Error] Unit1.pas(142): Undeclared identifier: 'Count'

[scroyler]

var
    ch: char;
    i: integer;
    count:integer;
begin
count:=10;
     Edit1.Text := '';
     randomize;
     i := 1;
     while i <= Count do
     begin
         ch := chr(random(43)+48);
         if ch in ['0'..'9', 'A'..'Z'] then
         begin
              Edit1.Text := Edit1.Text + ch;
              Inc(i);
         end;
    end;
end;

все пашет спасибо) сделал так)

[Hacker19_90]

procedure TForm1.Button1Click(Sender: TObject);
var
    ch: char;
    i, count: integer;
begin
     Edit1.Text := '';
     count := StrToInt(Edit2.Text);
     randomize;
     i := 1;
     while i <= Count do
     begin
         ch := chr(random(43)+48);
         if ch in ['0'..'9', 'A'..'Z'] then
         begin
              Edit1.Text := Edit1.Text + ch;
              Inc(i);
         end;
    end;
end;

КОРОЧЕ ТАК
Edit1 это для вывода рандома
Edit2 сюда писать длину строки!

[scroyler]

большое спасибо! все пашет.
только как сделать что бы и маленькие буквы были?
делаю так, но только большие буквы и цифры(

 if ch in ['0'..'9', 'A'..'Z','a'..'z'] then