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.
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/...
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?
w StringGrid - o ile nie zastosujesz trybu OwnerDraw - to się nie da.
Ehhh dlugo meczysz ta siatke :P .Juz sobie pisalismy na jej temat i co ciekawe mozna to co zamierzasz zrobic bez problemu i to uzywajac tego samego zdarzenia,ktore wczesniej omawialismy-mianowicie OnSetEditText var selekcja:TGridRect; begin if length(value)=15 then begin selekcja.Left := acol+1; selekcja.Top := arow; selekcja.Right...
no jezeli wpisujesz recznie to mozesz zareagowac w zdazeniu SetEditText. zalozmy,ze string ma 10 znakow (12°45'78'' <- na koncu 2 apostrofy) w skladni zdarzenia SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String) wartosc value to jest aktualnie wpisywany string. robisz warunek: if length(value)=10 then..... i tu reagujesz w sposob...
Ale co chcesz zrobić? Co masz w tych labelach? Do sortowania danych raczej nie używa się labeli, tylko np. StringGrid itp. Jeśli koniecznie chcesz posortować labele, to musisz napisać algorytm np. bąbelkowy. Następnie po posortowaniu, musisz skorzystać z właściwości Top i odpowiednio je na ekranie umieścić. Jednak ja osobiście odradzam takie kombinacje....
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)...
Nie zupełnie rozumiem co chcesz zrobić, ale może StringGrid wystarczy?
Mecze sie z zapisywaniem i odczytywaniem danych ze stringgrid . Szukalem i znalazlem idealne rozwiazanie ale pod delphi , nie wiem jak to ma wygladac dla c++. w delphi: Zapis: var f:textfile; x,y:integer; begin if SaveDialog1.Execute then begin assignfile (f,savedialog1.filename); rewrite (f); writeln (f,stringgrid1.colcount); writeln (f,stringgrid1.rowcount);...
Witam pisze soft w delphi do komunikacji z uC , w StringGird jest 8 komórek z której kazda może przyjąc 0 lub 1 ,z tych 8 komórek chcę dokonać konwersji na zminną typu byte i przesłać do PC ,jak i również odczytać z uC zmienną Byte i przetworzyć ją na bit ,jak tego dokonac w delphi ?
Hm StringGrid to nie funkcja, tylko komponent tak jak Edit:) Poprostu dane do wydruku pochodziły z tego komponentu.
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,...
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ł.
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...
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;
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 ?
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.
Pokazuje się błąd, że: Incompatible types 'string' and 'integer' Edit1.Text:=Inttostr(Edit1.Text+1) można tak Edit1.Text:=Edit1.Text+'1'; albo tak Edit1.Text:=Edit1.Text+Inttostr(1);
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...
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...
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...
[syntax=delphi]StringGrid1.Cells[7,i][/s... = [syntax=c]StringGrid1->Cells[7][i][/synt... resztę to chyba dasz rady.
Hi. W jaki sposób w obiekcie StringGrid zaznaczyć programowo wiersz(aby był podświetlony)? Wojtek Zamykam. - arnoldziq
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ę...
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 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])...
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...
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...
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...
Wielkie dzięki za kod :!: Lekko przerobiłem kod, i prawie dobrze działa. Najlepiej wyjaśnie co chcę osiągnąć. No więc moim celem jest odczyt wartości, z plików takich jak ten wyżej, porównanie ich z wartościami zawartymi w StringGrid1, i na koniec wyświetlenie tej wartości razem z ilością wystąpienia w pliku i danymi ze StringGrid1 w StringGridzie2....
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...
Wow, stringlista? Nie mieliśmy czegoś takiego :/ Ja chciałem zrobić tak, że będę wprowadzał współrzędne X i Y dla poszczególnych węzłów w stringgridzie ( w edit1 podaję liczbę węzłów) Ew. jakby zrobić coś takiego, żeby wczytywać dane punktów z pliku i wpisywało w tego stringgrida :) http://img688.imageshack.us/i/beztytuupr... Gdy kliknę na przycisk...
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...
[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 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...
Witam. Mam prosty program w Delphi. Wykorzystuje on TStringGrid. Potrzebuję go jednak zmodyfikować. Wprowadzone w siatkę wartości potrzebuję zapisać do notatnika do pliku txt za pomocą kliknięcia na button. Potrzebuję także za pomocą buttona załadować zapisane wartości z pliku txt. Nie wiem jak to ruszyć. Poniżej przedstawiam kod źródłowy tego programu....
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],...
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
Nie, nie mogę znalesc Stringlista jedyne co znalazłem to stringgird ... Posiadam Delphi 7 PE Drogi kolego. TStringList to jest klasa a nie komponent. Żadna wersja Delphi nie będzie miała, jak ty to mówisz : "Stringlisty" na "palecie".
Niestety rola USB sprowadza sie tylko do komunikacji (uklad FTDI) mikrokontrolera z PC i korzystam ze sterownikow D2XX, a z odczytem karty tez nie mam problemu, bo karta podpieta jest pod mikrokontroler, za pomoca niego czytam karte (poszczegolne sektory) i poprzez ftdi wysylam dane do kompa. Urzadzenie jest programatorem ,ktory komunikuje sie z urzadzeniem...
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
schematy samochodów mazda przebicie pomiar napięcia pralka polar pdh585 dafne
bateria milwaukee engine fault peugeot
Magnetofon MDS 442 - Szuflada wysuwa się po włączeniu Jak zdjąć obudowę ze zmywarki Candy do zabudowy