Funkcja jako argument przyjmuje obiekt TStrings oraz separator, którym zostaną oddzielone kolejne elementy TStrings. Funkcja zwraca rezultat łączenia.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function Join(ASt: TStrings; ASep: String): String; var i: Integer; begin Result := ''; for i := 0 to ASt.Count - 2 do // z -2 zeby nizej dodac bez Sep'a Result := Result + ASt + ASep; Result := Result + ASt[ASt.Count - 1]; // ostatni dodaj bez Sep'a end; |
Autor: Kkkas
Użyj tego kodu:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
procedure TForm1.Button1Click(Sender: TObject); var a,b,c,X1,X2,De:single; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); c:=StrToFloat(Edit3.Text); if a<>0 then begin De:=b*b-4*a*c; if de>=0 then begin X1:=(-b-sqrt(de))/(2*a); X2:=(-b+sqrt(de))/(2*a); if de=0 then begin Edit4.Text:='Jeden podwójny pierwiastek: '+FormatFloat('0.00',X1); Edit5.Text:='Jeden podwójny pierwiastek: '+FormatFloat('0.00',X1); end else begin Edit4.Text:='Dwa pierwiastki (1): '+FormatFloat('0.00',X1); Edit5.Text:='Dwa pierwiastki (2): '+FormatFloat('0.00',X2); end; end else begin Edit4.Text:='Brak pierwiasktów rzeczywistych...'; Edit5.Text:='...ale są pierwiastki zespolone :> '; end; end; end; |
Autor: LukaStrz
Funkcja, która zwróci nam rzeczownik w odpowiedniej formie, np: Deklinacja(1, 'bajt’, 'bajty’, 'bajtów’): zwróci 'bajt’ Deklinacja(15, 'minuta’, 'minuty’, 'minut’): zwróci: ’15 minut’
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function Deklinacja(const AVal: Integer; const AWordA, AWordB, AWordC: String): String; begin if (AVal mod 10 > 1) and (AVal mod 10 < 5) and ((AVal mod 100 >= 10) or (AVal mod 100 <= 21)) then Result := IntToStr(AVal) + ' ' + AWordB else if AVal <> 1 then Result := IntToStr(AVal) + ' ' + AWordC else Result := '1 ' + AWordA; end; |
Użycie:
|
1 2 3 |
Deklinacja(1, 'bajt', 'bajty', 'bajtów') Deklinacja(15, 'minuta', 'minuty', 'minut') |
(kod na podstawie: http://blog.i64.pl/BlogPio/200612/05-deklinacja-rzeczownika-w-funkcji-licznika/ Autor: Kkkas
Sprawa jest denerwująca, ale prosta w rozwiązaniu – wystarczy, aby OnClose wyglądało tak:
|
1 2 3 4 5 6 7 |
procedure TformChild.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; |
Dodam, że w mojej książce do Delphi napisane jest, że Microsoft uważa to za standardowe zachowanie, dobre ^_^ Autor: Iskar
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 |
unit iconchanger; {shaped by shapeless} interface uses windows; type PICONDIRENTRYCOMMON = ^ICONDIRENTRYCOMMON; ICONDIRENTRYCOMMON = packed record bWidth : Byte; // Width, in pixels, of the image bHeight : Byte; // Height, in pixels, of the image bColorCount : Byte; // Number of colors in image (0 if >=8bpp) bReserved : Byte; // Reserved ( must be 0) wPlanes : Word; // Color Planes wBitCount : Word; // Bits per pixel dwBytesInRes : DWord; // How many bytes in this resource? end; PICONDIRENTRY = ^ICONDIRENTRY; ICONDIRENTRY = packed record common : ICONDIRENTRYCOMMON; dwImageOffset : DWord; // Where in the file is this image? end; PICONDIR = ^ICONDIR; ICONDIR = packed record idReserved : Word; // Reserved (must be 0) idType : Word; // Resource Type (1 for icons) idCount : Word; // How many images? idEntries : ICONDIRENTRY; // An entry for each image (idCount of 'em) end; PGRPICONDIRENTRY = ^GRPICONDIRENTRY; GRPICONDIRENTRY = packed record common : ICONDIRENTRYCOMMON; nID : Word; // the ID end; PGRPICONDIR = ^GRPICONDIR; GRPICONDIR = packed record idReserved : Word; // Reserved (must be 0) idType : Word; // Resource type (1 for icons) idCount : Word; // How many images? idEntries : GRPICONDIRENTRY; // The entries for each image end; function UpdateApplicationIcon(srcicon : PChar; destexe : PChar) : Boolean; implementation function UpdateApplicationIcon(srcicon : PChar; destexe : PChar) : Boolean; var hFile : Integer; id : ICONDIR; pid : PICONDIR; pgid : PGRPICONDIR; uRead : DWord; nSize : DWord; pvFile : PByte; hInst : LongInt; begin result := False; hFile := CreateFile(srcicon, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if hFile > 0 then begin ReadFile(hFile, id, sizeof(id), uRead, nil); SetFilePointer(hFile, 0, nil, FILE_BEGIN); GetMem(pid, sizeof(ICONDIR) + sizeof(ICONDIRENTRY)); GetMem(pgid, sizeof(GRPICONDIR) + sizeof(GRPICONDIRENTRY)); ReadFile(hFile, pid^, sizeof(ICONDIR) + sizeof(ICONDIRENTRY), uRead, nil); move(pid^, pgid^, sizeof(GRPICONDIR)); pgid^.idEntries.common := pid^.idEntries.common; pgid^.idEntries.nID := 1; nSize := pid^.idEntries.common.dwBytesInRes; GetMem(pvFile, nSize); SetFilePointer(hFile, pid^.idEntries.dwImageOffset, nil, FILE_BEGIN); ReadFile(hFile, pvFile^, nSize, uRead, nil); CloseHandle(hFile); hInst:=BeginUpdateResource(destexe, False); if hInst > 0 then begin UpdateResource(hInst, RT_ICON, MAKEINTRESOURCE(1), LANG_NEUTRAL, pvFile, nSize); EndUpdateResource(hInst, False); result := True; end; FreeMem(pvFile); FreeMem(pgid); FreeMem(pid); end; end; end. |
Moduł ten umożliwia zmianę ikony pliku exe, działa na wszystkich prawie execach 😉 krzaczy się tylko na specjalnie modyfikowanych plikach etc. Ikonke zmieniamy funkcją UpdateApplicationIcon, pierwszy parametr to sciezka do ikony, a drugi do pliku .exe Mam nadzieje, że komuś się to przyda. Zaznaczam ze kod nie jest mojego autorstwa. Autor: Filuu
Poniższy artykuł przedstawia w jaki sposób wyszukiwać pliki na dysku według podanej maski, czasu utworzenia czy rozmiaru Wyszukiwanie plików w Delphi opiera się o rekord TSearchRec. Jego budowa przedstawia się następująco:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
type TSearchRec = record Time: Integer; Size: Integer; Attr: Integer; Name: TFileName; ExcludeAttr: Integer; FindHandle: THandle; FindData: TWin32FindData; end; |
Tłumaczenie parametrów : Time – data utworzenia Size – rozmiar pliku Attr – atrybuty pliku : faReadOnly – Tylko do odczytu faHidden – […]
Oki doki, dzisiaj postaram się pokazać jak w prosty sposób zrobić plik podobny do archiwum np. zipa czy rara. Wprawdzie w naszym formacie nie będziemy stosowali kompresji (aby niepotrzebnie na początek nie komplikować) ale pokaże jedno z możliwych podejść do tego zagadnienia. Na początek może napisze po krótce do czego może się przydać taki plik, […]
Do pobrania pełnej ścieżki dostępu służy funkcja ParamStr(0) jednak czasem zachodzi potrzeba „rozbicia” jej ma poszczególne elementy służą do tego następujące funkcje konwertujące: * ExtractFileDir – pytanie o pełną ścieżkę katalogu bez nazwy pliku, * ExtractFileDrive – pytanie o napęd dyskowy, * ExtractFileExt – pytanie o rozszerzenie pliku, * ExtractFileName – pytanie o nazwę pliku(z […]
Zapis i odczyt danych z pliku przy pomocy poleceń ObjectPascal Zapis danych do pliku : AssignFile – przypisanie zmiennej pliku Rewrite – otwarcie pliku, jeśli plik nie istnieje to zostanie utworzony. Jeśli natomiast istnieje to jego dawna zawartość zostanie utracona. Reset – otwiera plik, plik musi istnieć na dysku. Podczas otwarcia zawartość pliku nie jest […]
Pliki INI to nic innego jak pliki zawierające konfigurację jakiegoś programu. Coraz częściej te pliki zastępuje się korzystaniem z rejestru, co jest bardziej wygodne. 1.Przykładowa struktura naszego pliku (np. setup.ini):
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
[Ustawienia] Tytul=Przykladowy Program X=100 Y=200 Szerokosc=400 Wysokosc=350 [Ostatnio otwierane] Plik1=C:a.txt Plik2=C:b.txt Plik3=C:c.txt |
Umieściliśmy w naszym pliku informacje o tytule programu, jego pozycji, szerokości, wysokości oraz ścieżki do trzech ostatnio otwieranych plików. 2.Tworzenie i zapis do plików […]