[lmikle]

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

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

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

[Trosh]

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

[Trosh]

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

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

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

[Trosh]

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

[Trosh]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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]

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

Код:

1	Idx := Pos(' ',S);

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

Код:

1 2 3 4 5 6

Begin   SetLength(A,Length(A)+1);   A[High(A)] := Copy(S,1,Idx-1);   S := Copy(S,Idx+1,Length(S));   <font color="DarkOrange">Idx := Pos(' ',S);</font> End;

[Trosh]

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

[Trosh]

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

[SerginhoLD]

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

[PhoeniX]

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

[Marvel]

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