Как установить длинну строки в Delphi?!

[Npwas]

А как тогда записать, чтобы вот после того как пользователь ввел слово, то длинна строки стала равной кол-ву букв в слове?!

[Arigato]

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

А как тогда записать, чтобы вот после того как пользователь ввел слово, то длинна строки стала равной кол-ву букв в слове?!

Смотри тут: http://programmersforum.ru/showpost....9&postcount=10

[whatever]

Проверил на твоей программе, не может там быть лишних пробелов. Повторюсь за Arigato, если слово уже есть, то длина установлена.

В общем, что могу посоветовать:
1) Конкретно формулируй вопрос, я так и не допер, зачем эта тема
2) Не можешь сформулировать вопрос - подробно пиши, что хочешь сделать
3) Одна программа - одна тема. Так больше вероятности, что тебе помогут, возможно подкинут другой вариант решения, возможно поправят твой. Что-либо советовать, не имея полной картины, очень сложно.

[Npwas]

To Arigato

Мне эти твои слова говорят только о том, что в них нечерта не ясно! И предется самому думать, как я понял! я не гуру те какой-нибудь!

[whatever]

Все, сдаюсь. Опускаться до объяснений на уровне детсада не буду.

[Npwas]

To whatever

Эт как то не помогает!!! Даже если слово 5 ну или 6 символов и там само собой + один пробел якобы от строки, то длинна строки всеравно как то больше получается длинны этого!!!

[whatever]

Код в студию

[Npwas]

Вот код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Ruslib in 'RusLib.pas' ;

type
 mas=array[1..20] of string;
 mas_2=array[1..20,1..20] of string;
 mas_5=array[1..20] of Integer;
 mas_4=array[1..20,1..20] of string;
 Var
 a:mas;
 b:mas_2;
 h:mas_5;
 d:mas_4;
 y,e:string;
 i,j,x,z,f:Integer;
begin
i:=0;
x:=0;
Writeln('Введите желаемое кол-во слов.');
Writeln('Для завершения ввода нажмите "/stop"!!!');
{Ввод слов}
repeat
 begin
  i:=i+1;
  readln(a[i]);
  x:=x+1;
 end;
until (a[i]='/stop');
Writeln;
{Вывод слов}
 For i:=1 to x-1 do
  begin
   Write(a[i],'   ');
   z:=1;
   For j:=1 to Length(a[i])-1 do
    begin
     b[i,j]:=Copy(a[i],z,1);
     d[i,j]:=b[i,j];
     z:=z+1;
     Write(b[i,j],'  ',d[i,j],'  ');
    end;
   Writeln;
  end;
   {}
   {}
   {}
  {Цикл поиска слов с повтрояющимися буквами}
   For i:=1 to x-1 do
   begin
   SetLength(y,length(a[i])-1);
     For j:=1 to Length(y)-1 do
      begin
          For f:=1 to Length(y)-1 do
           begin
             If not (d[i,j]=b[i,f]) then
               begin
               h[i]:=0;

               end else h[i]:=1;
           end;
        end;
      end;
      {}
      {}
      {}
      For i:=1 to x-1 do
      Write(h[i],'  ');
         Writeln;
         {Вывод нужных слов}
    For i:=1 to x-1 do
    Write(h[i],'  ');
Readln;
end.

[whatever]

Ты если насоздавал пицот тем, то хоть читай, что в них люди пишут. Вот здесь я этот код уже исправил.

[Npwas]

Сорри как то внимание не обратил!!! На весы уже нажал!!!