Видео смотреть бесплатно

Смотреть девушки видео

Официальный сайт rostobrnadzor 24/7/365

Смотреть видео бесплатно


xT 14.04.10 13:19 # +0
когда начнем рефераты писать?
exelens 14.04.10 13:22 # +0
Хорошая идея =) написание рефератов за деньги силами сообщества.

Я могу взять темы про рекламу и маркетинг. (Иногда пишу рефераты и курсовые)
Ты какие возьмёшь?
xT 14.04.10 13:34 # +0
темы как ничего не делать ))
dieformetal 14.04.10 14:05 # +0
написание рефератов за деньги силами сообщества

Вот она, сила опенсорса =)
Shtsh 15.04.10 00:42 # +0
только исходные материалы должны быть опубликованы под свободной лицензией! :)
cppmm 14.04.10 13:56 # +0
А на perl'е не покатит? ;))
exelens 14.04.10 13:57 # +0
Нее, ему нужно именно на Дельфях
cppmm 14.04.10 14:27 # +0
Нууу... А если всё это с базой данных, автологгированием запросов, сохранением результатов в разных форматах и управлением утилитой через web-интерфейс?(чего только не сделаешь, только бы не писать не дельфи) :)
GalS 14.04.10 19:46 # +1

примерно так
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
procedure TForm1.btnLoadClick(Sender: TObject);
var
        i: integer;
        content: TStringList;
begin
        for i := 1 to 12 do
                StringGrid1.Cells[i,0] := 'Col ' + IntToStr(i);
        for i := 1 to 9 do
                StringGrid1.Cells[0,i] := 'Row ' + IntToStr(i);

        content := TStringList.Create;
        if OpenDialog1.Execute then
                begin
                content.LoadFromFile(OpenDialog1.FileName);

                fillGridFromString( 1, 1, content);
                fillGridFromString( 2, 2, content);
                fillGridFromString( 3, 5, content);
                fillGridFromString( 4, 7, content);
                fillGridFromString( 5, 8, content);
                end;
end;
procedure TForm1.fillGridFromString( rowFrom, rowTo: integer; content: TStringList);
var
        i: integer;
        temp: TStringList;
const
        sep: set of char = [ #32, #9, #10, #13];   // разделители полей
        ws: set of char = [ #32];            // символы пропускаемые в начале поля
begin
        temp := TStringList.Create;
        ExtractStrings( sep, ws, PChar(content.Strings[rowFrom - 1]), temp);
        for i := 1 to 12 do
                StringGrid1.Cells[i, rowTo] := temp.Strings[i-1];
end;
 

14.04.10 13:14 exelens

Talks!Задача по Дельфи

Обратился хороший товарищ с вопросом шарю ли я в Дельфи.

Так как не шарю, реквестирую помощь. Может кто подскажет.

Задача такая - надо написать программу на Делфи 7, которая подгружала бы данные из текстового файла(с помощью OnDialog) (двенадцать столбцов и пяти строк) в StringGrid, при этом первая и вторая строка загружались бы в первую и вторую активные строки StringGrida (в fixed rows/cols содержится описание таблицы) третья строка из тестового файла-загружалась бы в пятую строку SG, а четвертая и пятая в седьмую и восьмую строки соответственно.

Мне нужно,чтобы в 3,4,6,9 строки я мог выводить результаты математических операций, произведенных с загруженными данными. как-то так*TIRED*

Заранее спасибо


Посты Комментарии
Последние посты
    Посты Комментарии
    Последние комментарии
      Посты Комментарии
      Изменения
        Посты Комментарии Изменения Черновики Избранное
        Черновики (все)
          Посты Комментарии Изменения Черновики Избранное
          Избранное (всё)
            Посты Комментарии Изменения Черновики Избранное
            Лучшие блоги (все 114)
            Топ пользователей Топ блогов
            Топ пользователей Топ блогов
            Элита (все 2202 из 165 городов)
            Топ пользователей Топ блогов

            Новенькие: k4w0ru, rome, disturbia, divided, Luneworm
            welinux.ru

            В хорошем качестве hd видео

            Онлайн видео бесплатно


            Смотреть русское с разговорами видео

            Online video HD

            Видео скачать на телефон

            Русские фильмы бесплатно

            Full HD video online

            Смотреть видео онлайн

            Смотреть HD видео бесплатно

            School смотреть онлайн