Делфи две лабы на обработку строковых данных

[KrovavbIu]

Делфи две лабы, работа со строками и файлом, умоляю!

1)Дана строка. Преобразовать её, заменив точками все двоеточия, встречающиеся среди первых n/2 символов, и заменив точками все восклицательные знаки, встречающиеся среди символов, стоящих после n/2 символов.

2)Дан файл, содержащий текст. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[KrovavbIu]

Звиняйте, я только правила прочел, хотел исправить...

[denisbrain]

1 задача

//1)Дана строка. Преобразовать её, заменив точками все двоеточия,
//встречающиеся среди первых n/2 символов, и заменив точками все
//восклицательные знаки, встречающиеся среди символов, стоящих
//после n/2 символов.э

Function ReplaceSymbols(StrValue:string):string;
   var x,l:integer;
       s2,s:string;
begin
    l:=length(StrValue);
    S:=copy(StrValue,1,l);
    s2:='';
   for x:=1 to l do begin
//   заменив точками все двоеточия, встречающиеся среди первых n/2 символов
       if (s[x]=':') and (x<(l/2)) then s2:=s2+'.'
       //восклицательные знаки, встречающиеся среди символов, стоящих
//после n/2 символов.э
       else if (s[x]='!') and (x>(l/2)) then s2:=s2+'.'
       else s2:=s2+s[x];
   end;
   result:=s2;
end;

2 задача

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

Звиняйте, я только правила прочел, хотел исправить...

{
2)Дан файл, содержащий текст. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.

}

Function GetCharOneCountFromText(StrValue:string):string;
  var
    ch:array[1..255] of integer;
    y,x:integer;
    l:integer;
    s2:string;
begin
 for X:=1 to 255 do ch[x]:=0;
  l:=length(StrValue);
 for X:=1 to l do ch[ord(StrValue[x])]:=ch[ord(StrValue[x])]+1;
 s2:='';
 for x:=1 to l do
 if (ch[ord(StrValue[x])]=1) then if s2='' then s2:=s2+StrValue[x] else s2:=s2+','+StrValue[x];
 result:=s2;
end;
{для тех у кого файл  }
Function GetOneCountCharFromFile(Filename:string):string;
  var T:TstringList;
begin
if FileExists(Filename) then begin
 T:=TstringList.Create;
 t.LoadFromFile(Filename);
 result:=GetCharOneCountFromText(t.Text);
 t.Free;
 end else result:='';

end;

// пример


procedure TForm1.Button1Click(Sender: TObject);
begin
    Showmessage(GetCharOneCountFromText(memo1.Lines.Text));
end;

написал специально для вас и для своего блога

http://netsoftware.ucoz.ru/news/vybr.../2012-05-28-80

[KrovavbIu]

Огромное спасибо!