Работа со строками в delphi7

[Serge_Bliznykov]

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

Переменная st описана как глобальная

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

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

, там содержится пробел

во-вторых, ну и что Вы пытаетесь в строке, в которой есть один пробел?
Какие слова там появятся? И откуда? Самозарождение слов и двух пробелов?

в-третьих, для чего Вы прочитали текстовый файл в Мемо? Просто так?
Или Вы собирались обрабатывать прочитанный текст?

в-четвёртых, Вы сразу не ту задачу решаете. Вам нужно удалить слова, которые начинаются на одну и ту же букву,
а Вы пытаетесь найти (??? удалить) слова, которые начинаются на первую букву первого слова.
Разницу видите? Или пояснить на примере?

[Enotik_1998]

Если я убираю эту строку: st:=' '+st; выдаёт ошибку: Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0045EF57' in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.

[Serge_Bliznykov]

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

Если я убираю эту строку: st:=' '+st;

так Вы ещё пару пробелов добавьте. Может оно само и заработает.

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

выдаёт ошибку: Project Project1.exe raised exception class EAccessViolation with message

а ошибку обращения к памяти искать не надо. Эта ошибка сама по себе рассосётся.

перечитайте выше мой пост #11
подумайте, что не так и что надо исправить.

[p51x]

А вы подумайте, что произойдет тут:

delete(st,i,1);
until (st[i]=' ')

в st у вас был один символ, вы его удалили и читаете что? где?

[Enotik_1998]

Вот я сделал, оно удаляет все слова, которые начинаются на 1 букву первого слова:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
st:string;
h:char;
begin
if combobox1.ItemIndex = 1 then
begin
RadioGroup1.ItemIndex:=1;
For i:=0 to Memo1.Lines.Count-1 do
st:=Memo1.Lines[i];
h:=st[1];
repeat
i:=pos(' '+h,st);
inc(i);
if i<>1 then
repeat
delete(st,i,1);
until (st[i]=' ')or(i=length(st)+1);
until  i=1;
ListBox1.Items.Add('Полученная строка = ' + st);
end;

Как сделать чтобы удалялись слова, которые начинаются на 1 и ту же букву? И как сделать ввод этой буквы?

[digitalis]

На первом проходе определить повторяющиеся первые буквы слова, для чего, к примеру, завести массив структур {первый_символ char; число_повторений int} Потом уж по этому массиву удалять провинившихся слов.
Ввод буквы делать не надо, она сама определится по результатам первого прохода.

[Enotik_1998]

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

На первом проходе определить повторяющиеся первые буквы слова, для чего, к примеру, завести массив структур {первый_символ char; число_повторений int} Потом уж по этому массиву удалять провинившихся слов.

Ну и как это сделать? Просто я не шарю в delphi7. Пожалуйста, скиньте готовый код. Просто это последняя задача в контрольной. Помогите её сделать и я покину это форум на полгода.

[digitalis]

Не, мне лень. Ишшо вникать, как там разбивка текста на слова... Ну его в качель.
Неверов сделает, он это любит.

[Аватар]

Ну коль делфи, то и его возможности, а не просто паскалевские циклы)

function MyDeleteWords(Text: String): String;
type TMyRecord = record Symbol: Char; Count: Integer; end;
var List: TStringList;
    i,j: Integer;
    m: array of TMyRecord;
function FindSymbol(pSymbol: Char): Integer;
var ti: Integer;
    ts: Char;
begin
  ts:=AnsiUpperCase(pSymbol)[1];
  for ti:=0 to High(m) do if m[ti].Symbol=ts then begin Result:=ti; Exit; end;
  Result:=-1;
end;
begin
  List:=TStringList.Create;
  try
    List.Delimiter:=' ';
    List.DelimitedText:=Text;
    for i:=0 to List.Count-1 do begin
      j:=FindSymbol(List.Strings[i][1]);
      if j=-1 then begin
        SetLength(m,Length(m)+1);
        j:=High(m);
        m[j].Symbol:=AnsiUpperCase(List.Strings[i])[1];
      end;
      Inc(m[j].Count);
    end;
    Result:='';
    for i:=0 to List.Count-1 do begin
      j:=FindSymbol(List.Strings[i][1]);
      if m[j].Count=1 then Result:=Result+' '+List.Strings[i];
    end;
    Result:=Trim(Result);
  finally
    List.Free;
  end;  
end;

[Andrey_1998]

спасибо