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

Как сохранить запрос в Csv файл
как сохранить таблицу в Csv файл


Function SaveDataSetToCSV(Table:TDataSet;Filename:string;ch:char=';'):integer;
  var x,y:integer;
      s:string;
      F:Textfile;
      function ecran(s:string):string;
      var s2:string;i:integer;
      begin
      s2:='';
        for I:=1 to length(s) do if (s[i]<>ch) or (ord(s[i])<32) then s2:=s2+s[i] else s2:=s2+'#'+inttostr(ord(s[I]));
        result:=s2;
      end;
begin
Rewrite(f,Filename);
Table.First;
repeat
  s:='';
  for X:=0 to Table.FieldCount-1 do
  s:=s+ecran(Table.Fields[x].AsString)+ch;
  writeln(f,s);
  Table.Next;
until Table.Eof;
 closef ... Читать дальше »

Delphi

{как нарисовать эллипс повернутый на 45/60/30 градусов на Delphi}
{рисование наклонного эллипса}
// cn:Tcanvas; канва для отображения элепса
// cx,cy - координаты центра
// r1,r2 - радиус 1 радиус 2
// angle - угол поворота
procedure Ellips(cn:Tcanvas;cx,cy,r1,r2:integer;angle:integer=0);
  var sx,sy,rx,ry,i:integer;
        u,du:real;
{функции для определения кординат точек эллипса}
     function rot_x(x,y:integer;t:real):integer;
    begin
        rot_x:=round(x*cos(t)-y*sin(t));
    end;
function rot_y(x,y:integer;t:real):integer;
    begin
        rot_y:=round(x*sin(t)+y*cos(t));
    end;
begin
u:=angle*pi/180;
with cn do begin
   sx:=cx+rot_x(r1,0,u);
   sy:=cy+rot_y(r1,0,u);
 &nbs ... Читать дальше »

функция сортировки символов в строке  пузырьковым методом

function SortStr(s:string):string;
var x,l,k:integer;
    s2:string;
    b,min:char;
begin
s2:=s;
l:=length(s2);
for x:=1 to l do begin
     min:=s2[x];
     for k:=x to l do
        if s2[k]<min then begin
           b:=s2[x];
           s2[x]:=s2[k];
           s2[k]:=b;
           min:=s2[x];
        end;
  end;
  SortStr:=s2;
  end;

{ЗАДАЧА 4

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

Определить какие слова встречаются в строке по одному разу.
}
uses crt;
type
  Tword=record
   word:string;
   col:integer;
 end;
 
var
   stext,s:string;
   s3,s2:string;
   im,i,y,start,x:Integer;
  WordList: array[1..100] of Tword;{список слов}
  WordListCount:integer; {список слов }



function SortStr(s:string):string;
var x,l,k:integer;
    s2:string;
    b,min:char;
begin
s2:=s;
l:=length(s2);
for x:=1 to l do begin
     min:=s2[x];
     for k:=x to l do
        if s2[k]<min then begin
           b:=s2[x];
     & ... Читать дальше »

Компонент StringGrid Delphi (основные свойства)