[lmikle]

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

Где я выделил жирным в конце нужна скобка с точко запитой ?

Кстати, код был написан для консольного приложения. Не уверен, что ты сможешь так легко перенести его на форму (собственно, фокус в вводе данных, вывод можно вполне заменить через добавление строк в Memo).

[Trosh]

Понял исправлюсь

[Trosh]

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

Кстати, код был написан для консольного приложения. Не уверен, что ты сможешь так легко перенести его на форму (собственно, фокус в вводе данных, вывод можно вполне заменить через добавление строк в Memo).

Всё я её сделал Осталось 3 задачи как то сделать

[Trosh]

Народ а как в файле удалить записи-дубликаты, т.е. те записи, которые повторяются.

[Trosh]

кто знает почему прога виснет?
В заданном предложении переставить слова в порядке возрастания их длины.

Код:

var
  Form1: TForm1;
  S : String;
  I, J : Integer;
  A : Array Of String;
  Idx : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 S:=Edit1.Text;
  // 8.18
  SetLength(A,0);
  Idx := Pos(' ',S);
  While Idx > 0 Do
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := Copy(S,1,Idx-1);
      S := Copy(S,Idx+1,Length(S));
    End;
  If S <> '' Then
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := S;
    End;
    Memo1.Lines.Add(S);

[SerginhoLD]

цикл while бесконечный, Idx изменять надо внутри цикла, вот и "виснет"

[Trosh]

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

цикл while бесконечный, Idx изменять надо внутри цикла

А как это сделать ?

[SerginhoLD]

ну наверно вот это

Код:

Idx := Pos(' ',S);

надо тоже внуть засунуть

Код:

Begin
  SetLength(A,Length(A)+1);
  A[High(A)] := Copy(S,1,Idx-1);
  S := Copy(S,Idx+1,Length(S));
  Idx := Pos(' ',S);
End;

[Trosh]

Дали 10 задач которые надо сделать иначе всё кирдык мне будет а я Дельфу изучал лет 5 тому назад да и то поверхостно

[Trosh]

*мне кстати интересно че ты вообще делаешь* ты это писал или меня уже всё выносить можно ?

[SerginhoLD]

да просто когда сообщение форматировал нечайно удалилось, глянь в личные сообщения

[PhoeniX]

Оффтоп на правах продвинутого пользователя:
Всегда говорил, умиляют меня наши студенты... Берут задания, и ищут, кто бы их все решил... Диплом они получат мб, а вот куды они с ним пойдут, без знаний... Слава богу, мне это не грозит...

[Marvel]

ОффТоп: мне тоже не грозит, ибо у меня нету диплома и не будет и без него прекрасно живётся