Помогите с Delphi 7

[kom007]

Итак, как и обещал выкладываю программу. Немного раньше получилось написать. Пока что бета версия. Кстати не могу разобраться почему при сворачивании программа не сворачивается вниз как положено. Может кто знает..
На летитбите:
*** скрытое содержание ***

Ну ты уж и исходники заодно выкладывай, в таких случаях.
Скорее всего неправильно выставлен FormStyle в свойствах формы

 

[disker]

Скорее всего неправильно выставлен FormStyle в свойствах формы

Неа, посмотрел все формы , везде выставлено fsNormal.

Попозже выложу исходники, просто нужно собрать их в одну папку ))

 

[disker]

Набросал пример работы с разделителем:

var
  ts: TStringList;
begin
  ts := TStringList.Create;
  ts.Delimiter := ' ';
  ts.DelimitedText := 'Шарлотт Даллас 92 101';
    Memo1.Lines.Add(ts[0]);
    Memo1.Lines.Add(ts[1]);
    Memo1.Lines.Add(ts[2]);
    Memo1.Lines.Add(ts[3]);
  ts.Free;

В результате в Мемо получим

Шарлотт
Даллас
92
101

Кстати, я так и не могу догнать что тебе нужно сделать со списком данных

Шарлотт Даллас	92 101
Шарлотт Майами	97 109
Детройт Шарлотт	87 97
Юта Шарлотт	83 78
Клипперс Шарлотт	103 88
Бостон Орландо	91 80
Бостон Даллас	97 101
Сакраменто Бостон	90 95
Лейкерс Бостон	96 109
Финикс Бостон	88 71
...

Объясни

Тут мне посоветовали такой код вставить в случае с пробелами, а не разделителем, чтоб получить в мемо2 такой текст с каждой строчки новое слово, но компилятор ругается:

Memo2.Text := StringReplace(Memo1.Text, ' ', #13#10, [rfReplaceAll]);

[DCC Error] Unit2.pas(106 E2003 Undeclared identifier: 'Memo2'

В чём может быть проблема, вроде мемо2 прописал в unit2.pas как Memo2: TMemo; ?

 

[diavolic]

Тут мне посоветовали такой код вставить в случае с пробелами, а не разделителем, чтоб получить в мемо2 такой текст с каждой строчки новое слово, но компилятор ругается:

Memo2.Text := StringReplace(Memo1.Text, ' ', #13#10, [rfReplaceAll]);

В чём может быть проблема, вроде мемо2 прописал в unit2.pas как Memo2: TMemo; ?

Memo2.Lines.Text := AnsiReplaceStr(Memo1.Lines.Text, ' ', #13+#10);

в список юнитов воткни StrUtils

 

[disker]

Memo2.Lines.Text := AnsiReplaceStr(Memo1.Lines.Text, ' ', #13+#10);

в список юнитов воткни StrUtils

Вот такое получится, не совсем то, что нужно (нужно чтобы по одному слову в каждую строчку) :

Шарлотт
Даллас 92
101
Шарлотт
Майами 97
109
Детройт
Шарлотт 87
97
Юта
Шарлотт 83
78
Клипперс
Шарлотт 103
88
Бостон
Орландо 91
80
Бостон
Даллас 97
101
Сакраменто
Бостон 90
95
Лейкерс
Бостон 96
109
Финикс
Бостон 88
71
Бостон
Шарлотт 99
94
Шарлотт
Бостон 62
93
Бостон
Шарлотт 92
71
Бостон
Шарлотт 104
80
Шарлотт
Бостон 90
108
Бостон
Шарлотт 92
59
Бостон
Шарлотт 111
109
Шарлотт
Бостон 114
106
Шарлотт
Бостон 84
89
Шарлотт
Бостон 78
101

 

[disker]

Пытаюсь вставить такой код в программу:

 for i := 0 to 79 do
 a[i] := memo2.lines[i];
    if a[0]=com1 then
 begin
   itcom1:=strtoint(a[2]);
   itcom2:=strtoint(a[3]);
 end;

Получаю следующую ошибку:
В чем может быть проблема? Без кода работает нормально. Delpi XE

 

[akimov_aleks]

ну о пятьже нет провидцев
а это утебя масив.
а всеь остольной код просто брет щас у поду от смеха
за чем заполнять масив от 0 до 79 если ты проверяешь потом только a[0]
тем более не известно что у тебя memo2 что ты пытаеся потом перевести в цифры

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

 

[disker]

Прошу прощения, подумал, что спецам понятно с ходу и без всего кода

1.Да это массив.
2.Проверять буду все а[79] - все 80 элементов массива , я только начал писать решил проверить и получил ошибку.
3. В строках 2 и 3 мемо2 находятся цифры, но поскольку массив то string, поэтому и решил что надо перевести ещё раз в int. А что не надо переводить? Просто без перевода компилятор ругается...

 

[disker]

Мемо2, собственно картинкой :

 

[disker]

а вообще массив создал, чобы меньше кода было, согласись лучше написать а[0] , чем memo2.Lines[0] где-то около 300 раз.