Выбрать символы, которые встречаются в файле только один раз, в том порядке, в котором они встречаются в тексте. - 28 Мая 2012

Главная » 2012 » Май » 28 » Выбрать символы, которые встречаются в файле только один раз, в том порядке, в котором они встречаются в тексте.

12:21 Выбрать символы, которые встречаются в файле только один раз, в том порядке, в котором они встречаются в тексте.
{ 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;
1 2 3 4 5 Просмотров: 2282 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки