eGospodarka.pl
eGospodarka.pl poleca

eGospodarka.plGrupypl.misc.elektronika[trochę NTG] freepascal, lazarus i formatowanie stringaRe: [trochę NTG] freepascal, lazarus i formatowanie stringa
  • Data: 2013-11-15 20:46:52
    Temat: Re: [trochę NTG] freepascal, lazarus i formatowanie stringa
    Od: John Smith <d...@b...pl> szukaj wiadomości tego autora
    [ pokaż wszystkie nagłówki ]


    > Kolumny stworzone we właściwościach StringGrida, tak żeby miały już
    > konkretne nazwy, szerokości etc. Zresztą jak wrzuce do kolumny numer 1
    > jakąś wartość numeryczną to ją widzę.

    Prosiłem o krótki program, ten co przysłałeś pozwoliłem sobie uprościć
    do problemu StringGrid:

    unit Unit1;

    interface

    uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
    System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls,
    Vcl.Samples.Spin;

    type
    TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var
    i: integer;
    ilosc_osobnikow : integer;
    begin
    ilosc_osobnikow := SpinEdit1.Value;
    //StringGrid1.Clear;
    StringGrid1.RowCount:=ilosc_osobnikow+1;
    // for i:=1 to ilosc_osobnikow do
    // begin
    // osobniki[i].numer:=i;
    // osobniki[i].genotyp:=permutacja(8);
    // end;
    for i:=1 to ilosc_osobnikow do
    begin
    StringGrid1.Cells[0,i]:= 'abc'; //Format('%d', [osobniki[i].numer]);
    StringGrid1.Cells[1,i]:= 'def'; //Format('%s', [osobniki[i].genotyp]);
    end;
    end;

    end.


    Ta wersja działa zgodnie z oczekiwaniem pod Delphi.
    K.

Podziel się

Poleć ten post znajomemu poleć

Wydrukuj ten post drukuj


Następne wpisy z tego wątku

Najnowsze wątki z tej grupy


Najnowsze wątki

Szukaj w grupach

Eksperci egospodarka.pl

1 1 1

Wpisz nazwę miasta, dla którego chcesz znaleźć jednostkę ZUS.

Wzory dokumentów

Bezpłatne wzory dokumentów i formularzy.
Wyszukaj i pobierz za darmo: