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
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 .
Jak połączyć tablicę array of integer z komponentem StringGrid w Delphi? Przekonwertuj liczby na tekst i wypełnij komórki StringGrid, ustawiając odpowiednią liczbę wierszy i kolumn.
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...
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...
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/...
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)...
Warunek jest w błednym miejscu. To analizując każdą z wartości (W pętli) masz sprawdzić, czy jest ona dodatnia czy ujemna (if) i przenieść do właściwego stringgrida (then sg1... else sg2...)
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ł.
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...
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.
w pierszym przypadku dla rozwinięcia i czytelności - przesunięcie bitowe w lewo - shl - powinno się znaleźć ;)
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?
18 ponieważ to wysokość wiersza kontrolki StringGird
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;
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]...
Nie zupełnie rozumiem co chcesz zrobić, ale może StringGrid wystarczy?
Chodzi o to, że ręcznie wpisuję długość i szerokość geograficzną. I przykładowo mogę wpisać 70 minut (co jest błędem) i program na to nie zareaguje, bo nie mam miejsca gdzie mógłbym wpisać warunek, że liczba musi być <60. W jakiej procedurze zdarzeniowej StringGrida wpisać ten warunek (onClick, OnEnter) ?
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
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...
Elo.Robię sapera i muszę odkryć puste komórki(w moim przypadku są to zera). Mam taki oto kod [syntax=delphi]IF stringgrid1.Cells[Acol,Arow]='0' then begin p:=1; for i:=(-p) to p do for j:=(-p) to p do stringgrid1.Cells[Acol+i,Arow+j]:=inttos... end;[/syntax] p odpowiada za współrzędne odkrywanych komórek(jak widać zaczyna od lewej...
Hi. W jaki sposób w obiekcie StringGrid zaznaczyć programowo wiersz(aby był podświetlony)? Wojtek Zamykam. - arnoldziq
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...
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...
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.
Hm StringGrid to nie funkcja, tylko komponent tak jak Edit:) Poprostu dane do wydruku pochodziły z tego komponentu.
[syntax=delphi]StringGrid1.Cells[7,i][/s... = [syntax=c]StringGrid1->Cells[7][i][/synt... resztę to chyba dasz rady.
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...
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...
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ę...
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 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 ...
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...
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
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
delphi stringgrid stringgrid komórka wiersz stringgrid
wymiana modułu bosch weber kolektor thinkpad password
Odczyt danych z portu COM w Excelu: VBA i dodatki Najczęstsze uszkodzenia szyny CAN PTCU i radarów
