Może to trochę pomoże: procedure TForm1.FillGrid; var i,j: Integer; begin StringGrid1.DefaultDrawing := False; for i := 0 to StringGrid1.RowCount -1 do for j := 0 to StringGrid1.ColCount -1 do StringGrid1.Cells[ j, i ] := Format('Współ. kom.: K: %d, W: %d', [j, i]); StringGrid1.Repaint; end; procedure...
Ja pamiętam to jeszcze z Delphi 2.0 :-) Być może pokręciłem nazwę, zaraz poszukam w sieci, chwilowo nie mam zainstalowanego delphi... EDIT: W DrawGrid nie trzeba nic zmieniać jednak, pokręciłem z innym komponentem, wystarczy jedną metodę oprogramować i już :) To Ci powinno pomóc: http://www.festra.com/wwwboard/messages/...
Nie wiem czy o to chodzi ale moja propozycja brzmi tak tak: kolumna:=1; // zalezy w ktorej kolumnie szukamy wiersz:=0; while StringGrid.Cells[kolumna,wiersz]... do Inc(wiersz); StringGrid.Row := wiersz; // zaznacza pierwszy pusty wiersz
procedure TForm1.StringGrid1MouseDown(Sender&#... TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var ACol, ARow: integer; Rect: TGridRect; begin StringGrid1.MouseToCell(x, y, ACol, ARow); Rect.Left:=0; Rect.Top:=ARow; Rect.Right:=stringgrid1.ColCount-1; Rect.Bottom:=ARow; if (ACol>0)...
Wykonałem program testowy z Twoją procedurą wydruku i działa jak należy. Próbowałem wydruk na drukarkę laserową i do pliku *.pdf. W załączniku przykładowy wydruk. Pozdrawiam... Edit: sprawdź wartość RowCount w StringGrid .
Chodzi o kodowanie polskich znaków w pliku TXT. Musiałbyś zrobić konwersje polskich znaków przy wczytywaniu na przykłąd przez StringReplace; Albo zrób swój edytor do TXT tak by z MEMO zapisywał do TXT wtedy standard będzie sie zgadzał.
18 ponieważ to wysokość wiersza kontrolki StringGird
w linii: if strtoint(StringGrid1.Cells[x,y])<=0 then masz nieokreślone lub niewłaściwe wartości x i y ?
Nie możesz przypisywać inta do stringa i odwrotnie: [syntax=delphi] Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);[/syntax] Najpierw tekst zamieniasz na liczbę, później do liczby dodajesz jeden, a na koniec ten wynik zamieniasz na tekst.
Nigdy nie korzystałem z siatki grid, ale za to fajnie można podobny efekt osiągnąć tworząc siatkę prostych elementów typu Label, Edit. Przesyłam więc kod źródłowy programu, który generuje na formatce w zdarzeniu OnCreate formy tabelę złożoną z 10 wierszy, a w każdym z nich z dwa pola tekstowe i jedno combo. Jednak nie oznacza to, że w pamięci można...
Mam problem. Używam tabeli StringGrid i chciałbym przemieszczać kursor z kratki do kratki nie myszką, a np. klawiszem <ENTER> lub by się sam przemieścił po wpisaniu np. 15 znaku. Przykładowo jestem w komórce[1,1] wpisuję do niej kolejne znaki i w momencie wpisania 15-tego znaku chcę by kursor przeszedł do komórki[2,1] lub jestem w komórce[1,1]...
w pierszym przypadku dla rozwinięcia i czytelności - przesunięcie bitowe w lewo - shl - powinno się znaleźć ;)
To masz wpisać w pliku cpp, w kórym piszesz kod. Jeśli to Builder to w, którymś Unit*.cpp. Wstaw go gdzieś na górze, na przykład pod: __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } A i potem kliknij na zakładce Unit1.cpp (lub inny, w którym piszesz kod) i wybierz Open Source / Header File i tam...
Witaj. Co więcej sprawdzałam ten program na innych komputerach i, o dziwo, normalnie działa, bez problemu. Być może problem jest ... w różnych wersjach używanych bibliotek. Bez źródła (kodu) niewiele wyczarujemy. P.S. Próbowałaś kompilować inną wersją Lazarus'a? P.S.2 Jakiej wersji używasz?
Piszę program, który ma służyć za dziennik lekcyjny. Oceny, sprawdzanie obecności, uwagi i ma mieć zakładkę dla każdego przedmiotu. Jednak utknąłem i nie wiem co robić mam problem z zapisaniem pagecontrol stringgrida do pliku, odczytaniem tego i działaniem klawiszy na otwartych zakładkach. Oto kod [syntax=delphi]unit dziennikLekcyjnyGP; interface uses...
StringGrid ma pola: property ColWidths[Index: Longint]: Integer; property RowHeights[Index: Longint]: Integer;
procedura wykonuje sie przy kazdym wprowadzeniu znaku , dlatego musisz dac warunek: if length(value)=10 then ... i tu swoje procedurki oznacza to,ze reakcja (sprawdzanie poprawnosci bedzie dopiero gdy caly string osignie 10 znakow) wogole to masz cos chyba skopane z acol (wiesz ,ze liczenie column i wierszy zaczyna sie od 0). wg tego co podales to program...
No dobra tylko nadal nie wiem jak to posortować :( Teraz gdy mam już stringgrid i wpisy są zrobione chciałbym posortować rzędy według kolumny np 2
Nie zupełnie rozumiem co chcesz zrobić, ale może StringGrid wystarczy?
Co do pkt 1.; to nie jest takie proste. Pozycja pojedynczego punktu nic ci nie da, bo musisz odkryć cały obszar wolny od "min". Tutaj masz gotowy program napisany w Delphi. Po prostu podejrzyj jak to jest zrobione : http://delphi.about.com/od/gameprogrammi... pkt 2 : Wydaje mi się, że zastosowanie StringGrid-a do Twoich celów jest...
No właśnie dlatego zgłupiałem bo jest defekt gdy: var aRAr1Sr: TRAr1GrSpecRc bez zmiany stanów nie powinno nic się dziać. A tu .. normalnie ściana. Delphi 2007 Profeshional jakby ktoś miał pod ręką bo już nic mi do głowy nie przychodzi. Wszystko jest w jednym wątku / bez wątków.
Danke, też wiem, że w tym Designerze dla tego akuart komponentu mogę zrobić, tyle co nic. Zupełnie sprawa ma się dla innych podobnych koponentów (edytuących dane) listBoxy,edity, labele, etc. tutaj można kopiować do woli w najbardziej przemyślnej formacji graficznej i tekstowej. Dla kontrastu konkurencyjny StringGrid ze stajni Delphi/C++ Builder przy...
Cześć! Twoje błędy i niedociągnięcia: 1. Nie zainicjowałeś zmiennej czas0 . Przed rozpoczęciem obliczeń wszystkie zmienne powinny mieć określone przez programistę wartości. W Twoim programie przy pierwszym kliknięciu wartość czas0=0 , przy następnych wartość z poprzednich obliczeń. W procedurze Button1Click przed pętlą while wstaw czas0:=0; 2. Źle...
Hi. W jaki sposób w obiekcie StringGrid zaznaczyć programowo wiersz(aby był podświetlony)? Wojtek Zamykam. - arnoldziq
[syntax=delphi]StringGrid1.Cells[7,i][/s... = [syntax=c]StringGrid1->Cells[7][i][/synt... resztę to chyba dasz rady.
Hm StringGrid to nie funkcja, tylko komponent tak jak Edit:) Poprostu dane do wydruku pochodziły z tego komponentu.
Nie wiem co ty tam zrobiłeś bo mi się nawet twój kod nie kompiluje. Z tego co widzę to nie w tym miejscu zadeklarowałeś Tabl. bo dałeś to do public a to jest public formy a typ Tabl masz poza formą więc powinieneś to zadeklarować Grobalnie . Nie jesteś za ciemny:) to nie jest taki łatwy kod jak ci się wydaje :) Ładowanie do StringGrida z txt powinno...
Nie jestem pewien czy to: // Save a TStringGrid to a file procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName); var f: TextFile; i, k: Integer; begin AssignFile(f, FileName); Rewrite(f); with StringGrid do begin // Write number of Columns/Rows Writeln(f, ColCount); Writeln(f,...
Witam Mam problem z zamainą StrToFloat. Otóż napisałem program w vcl w delphi 7 który ma rozwiązywać układ równań metodą gaussa. Równania zapisujemy w jednym stringgridzie a wyrazy wolne w drugim stringgridzie. W kolejnych dwóch stringgridach wyświetlana ma być macierz górnotrójkatna a w 5 stringgridzie wyniki obliczeń. Obliczenia są wykonywane po naciśnięciu...
Witam Mam do napisania hexedita w delphi i mam z nim pare problemow :/ mianowicie korzystam z 2 stringgridow w 1 sa wypisane literki a w 2 bajty. 1) jak zsynchronizowac ze soba 2 przesuwaki (scroole) zeby w kazdym momencie pokazywaly ten sam fragment pliku? 2) w jaki sposob po edycji pewnej kratki w 1. stringgridzie zmieniala sie odpowiadajaca mu kratka...
Dodano po 16 przepraszam, ta procedura ostania (procedure TForm2.Button1Click(Sender: TObject);) , to mój bład, niepotrzebnie ja wkeliłem, to ostatnie mojej wypociny,niedokończone, własnie tu szukałem błedu Dodano po 56 problem jest opisany przez Cyfowego Barona w temacie Tekstowa baza danych, ale rozwiazanie jest w c++, niestety dla mnie przekonwertowanie...
Mam taki problem: W obiekcie StringGrid przedstawiam pewne dane.Ale potrzebna mi osobna procedura do wypełnienia tego komponentu samymi zerami.No i tu zaczeły się schody.Po zadeklarowaniu takiej procedury w klasyczny sposób program przy próbie kompilacji zgłasza błąd - niezadeklarowana zmienna wskazując na obiekt StringGrid.Jeśli ten obiekt zadeklaruję...
Witam Udało mi się stworzyc program w vcl, lecz niestety nie potrafie przetwożyć wartości liczbowych odczytanych z dwóch stringgridów.Wartości te po dokonaniu obliczeń chcialbym umieścić w stringgrid3. Oto kod odpowiedzialny za to :[syntax=delphi] procedure TForm1.Button1Click(Sender: TObject); begin for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=StrToInt(stringgrid1.Cells[i,j])...
Co do tematu, to można użyć czegoś co się nazywa serwerem excela, było to dostępne w delphi, chyba od wersji 5. Polega to na tym że dokładamy objekt niegraficzny, typu excelxxxxxxxx. Podczas działania programu program excel jest uruchamiany (ale nie musi być widoczny, to jest opcja), i można na arkuszu kalkulacyjnym przeprowadzać operacje. Całość ćwiczyłem...
Jak na razie zrobiłem na stringgridzie tylko ze zamiast kostek mam kratki w które wpisuje sie 1ka. Z tego co ustaliłem chyba nie da się zmienić koloru konkretnej komórki w tym gridzie. Jest jeszcze drawgrid ale nie udało mi się z nim w żaden sposób dogadać. efekt jest w miarę dobry gdyby dało się zmieniac kolor komórek to było by świetnie ...
Jak w temacie... Delphi 3, baza danych paradox, mam tabele tdbGrid i chce dane w niej zawarte mieć w zwykłym stringgridzie, jak to zrobić? Pozdrawiam
Pisze program w Delphi7, i napotkałem problem, którego nie potrafię rozwiązać. Musze odczytywać dane z plików, które wyglądają tak: BPSTK_A_8 L CAD-ASCII AC 13, 0, 0, 0, 0, 0, 0, 0 1,D_MM_LL4148 , -20.02, 47.74, 90.0, ,D10 , 0 2,D_MM_LL4148 , -5.80, 4.18, 270.0, ,D9 , 0 3,D_MM_C20V , -8.80, 40.37, 90.0, ,D13 , 0 4,D_MM_C10V , -10.60, 6.31, 270.0, ,D12...
JIIIS - to dotyczy nawet WinAPI :) Wszystkie funkcje klasy TCanvas odnajdzie się także w czystym WinAPI. jak sie uprzesz to i w assemblerze sie znajda ;) zartuje, po prostu ze dwa razy napisalem okienka w WinAPI i jak tylko moge to omijam z daleka programy w calosci pisane w nim, a wywolywanie niektorych funkcji w Builderze, czy Delphi to juz inna...
Kawałek kodu jednego z moich programów. Mam nadzieję, że pomoże: if OpenDialog1.Execute then try begin wiersz := 0; AssignFile(Plik, OpenDialog1.FileName); Reset(Plik); FileMode := 0; //Set file access to read only while not Eof(Plik) do begin wiersz := wiersz + 1; if wiersz > StringGrid1.RowCount -1 then begin...
Witam mam taki problem potrzebuje przerobić kod aby mi sortował w tabeli TstringGrid nazwy alfabetycznie sortowanie numeryczne działa ok ale niestety nie wiem jak zrobić aby działało alfabetycznie. Próbowałem wklepać tego gotowca: http://4programmers.net/Delphi/Gotowce/A... Jednak wywala mi błąd praktycznie od początku...
[syntax=delphi] var plik : file of byte; bajt : byte; typ : byte; a: integer ; begin if OpenDialog1.Execute then begin ProgressBar1.Position :=0; AssignFile(plik,OpenDialog1.FileName); try Reset(plik); Read(plik,bajt); //synchronizacja Read(plik,bajt); /////AAABBCCD StringGrid1.Cells[1,0]:='Parametry'; StringGrid1.Cells[0,0]:='Właściwosci pliku'; StringGrid1.Cells[0,1]:='Mpeg...
Witam, A proszę Ciebie bardzo :P Nic prostszego, Tworzymy plik rekordowy i ognia :) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Math, ExtCtrls; //tutaj nasz record type TZapis = record dane : array [1..4, 1..12] of Double; end; type TForm1 = class(TForm)...
Witam Panowie mam taki problem wydaje się, że program działa poprawnie. kod programu procedure TForm1.Button4Click(Sender: TObject); begin form3.Visible:= false; tlo.Visible:= false; plansza2:=StringGrid1.Cells[4,nrid]; begin try form2.o2.Picture.LoadFromFile(plansza2); except form2.Visible:= false; MessageDlg('Błąd wczytania danych.',mtInformation,[mbOk],...
http://obrazki.elektroda.net/40_11983664... Witam. Chciałem przedstawić mój nowy projekt tym razem sterownik oświetlenia choinkowego. Wykonany został przy współpracy z dwoma kolegami jednym z uczelni (notabene chemicznej ;-) ) i drugim z sąsiedztwa. Powstał więc system zunifikowany o dowolnej ilości kanałów. Opis: Całość bazuje na 2 podstawowych...
Witam bardzo serdecznie. Nie mam już siły do pewnej rzeczy. Stąd mój post na tym forum... mam pewien program w którym to użytkownik definiuje liczbę wierszy. Póki co liczba jest stała. Nie jestem pewny... wydaje się, że należy wstawić tabelę dynamiczną, jednak tu pojawia się problem, gdyż nie wiem jak połączyć okienko Edit z liczbą wierszy, która będzie...
czy ktos mógłby mi zrobić zadanie, żeby nowy plik i juz istniejacy byl w StrigGridzie a nie w memo Bardzo prosze zeby mi pomoc to jest moj egzamin
stringgrid delphi stringgrid komórka wiersz stringgrid
seicento poziom paliwa silnik kosiarka elektryczny inspekcja laguna
integra firmware powerbank kupić
Miganie drukarki Datamax O'Neil E-4205 - kody błędów Jak odblokować immobilizer, gdy kluczyk nie działa?
