Delphi заготовки

 

Задача написать код для перемещения центра оси координат в центр TCanvas

данный материал написан на основе

http://www.frolov-lib.ru/books/bsp/v14/ch2_2.htm

Приступим

... Читать дальше »

{
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( ... Читать дальше »

{

Задание : Поиск строки,удовлетворяющей заданному условию.

В какой из них больше слов,длина которых равна заданному пользователем числу?

Все вычисления должны выполнятся в функции
}
uses crt;
const MaxCountWord=1000; { максимальное количество слов в тексте }
type
  Tword=record
   word:string;
   col:integer;
 end;
 
 TDocumcent=record;
    WordList: array[1..MaxCountWord] of Tword;{список слов}
    WordListCount:integer; {список слов }
 end;
var
    DocBody:TDocumcent; {тело документа }
    text:string; {строка }
    lnstr:integer; {длина слова}

 Procedure AddWord(word:string;var Doc:TDocumcent);
 var x:integer;
 begin
   for x:=1 to Doc.WordListCount do
   if Doc.wordlist[x].word=word then begin Doc.WordList[x].col:=Doc.WordList[x].col+1; ex ... Читать дальше »