сравнить разные строки

[Katovski]

Снова прошу помощи. Люди, мне нужно сравнить 2 строки, в 1й - число Х, а во второй символов столько, сколько Х. Я ему так:
TForm1.Button1Click(Sender: TObject);
Var s, s2: String;
begin
s2:=Edit1.Text; //число
s:=Edit2.Text; // поле с символами равное полю 2
if length(s2)=s
then
begin
end;

он конечно же ругается, говорит : [Error] Unit1.pas(41): Incompatible types: 'String' and 'Integer'. А как сделать то.
Я чайник, пожалуйста поподробнее и простыми функциями, а то препод не поврит, что это я такая умная

[mutabor]

IntToStr
StrToInt

[Katovski]

А какую в каую строку переводить лучше число в строку или наоборот?

[Квэнди]

if length(s2)=s => if length(s2)=strtoint(s)

[mutabor]

Сообщение от Katovski

А какую в каую строку переводить лучше число в строку или наоборот?

отвечаю вашими же словами

сравнить разные строки

сравнивать можно и строки и числа, все зависит от задания, вам вроде задали строки сравнить, их и сравнивайте, строки по алфавиту сравниваются, больше та к-рая выше по алфавиту

[Katovski]

ого! он мне вабще окно с ошибкой выдал после такого

procedure TForm1.Button1Click(Sender: TObject);
Var s, s2, t : string;

i : integer;

begin
s2:=Edit1.Text;
s:=Edit2.Text;
if length(s2)=strtoint(s)
then
begin
...

[Katovski]

Сообщение от mutabor

отвечаю вашими же словами

сравнивать можно и строки и числа, все зависит от задания, вам вроде задали строки сравнить, их и сравнивайте, строки по алфавиту сравниваются, больше та к-рая выше по алфавиту

Это здорово, что Вы профессионал, но я нифига еще не понимаю в этом. Я понимаю, что строки нужно как то сравнить, но как по нормальному не получается.
Не будите ли Вы добры, чтоб оказать несчастной помощь?

Мне в задании сказано: дано число х, и последовательность символов, такой длины как х, вот.

[mutabor]

Мне в задании сказано: дано число х, и последовательность символов, такой длины как х, вот.

Это понятно, а что сравнить?
Чтобы кол-во символов в последовательности была равна числу?
Тогда так:

TForm1.Button1Click(Sender: TObject);
Var s, s2: String;
begin
s2:=Edit1.Text; //число
s:=Edit2.Text; // поле с символами равное полю 2
if StrToInt(s2) = Length(s) then
  begin
  
  end;
end;

[Katovski]

Ой, спасибо! ура! ура! работает!