Полезные процедуры и функции, которые я когда-то писал под себя

[AnGel]

AnGel добавил(а) новый ресурс:

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

- Сборник ф-циф, которые вам могут помочь

Зачастую, каждый программист pascal пишет свои процедуры и ф-ции, когда не может найти готового решения в сети или влом искать. Немного полезного я оставлю после себя.

1. Получение из строки file.txt расширения файла без подключения регулярных выражений:

function ReParsEx(s: string): string;
var i, j: integer;  temp: string;
begin
 if Length(s) > 6 then 
 begin
  Delete(s, 1, Length(s)-6);
 end;
 for I:=Length(s) downto 0 do
  if Pos('.', s[i]) <> 0 then Break;
 for j:=i+1 to...

Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!