string delphi

Konwersja danych z ds18b20 na string w Delphi - błędne wartości temperatury

Zacząłbym od tego: Otrzymujesz wartość zmiennej temperatura równą np. 1871819,25. Jak przemnożysz to przez 16 to okaże się, że wyrażenie (temp1 + (temp2*256)) zwraca wartość 29 949 108. Teoretycznie zmienne temp1 i temp2 nie powinny przyjmować wartości większych od 255, więc wartość maksymalna wyrażenia (temp1 + (temp2*256)) = (255 + (255*256)) = 65535....

DELPHI - Konwersja tablicy Byte z ASCII na Double do obliczeń

Float:=StrToFloat(String(PChar));

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Jak zamienić string na PAnsiChar w Delphi dla MessageBox?

Witam Sprobuj rzutowac na typ AnsiChar - ja tak zawsze robilem, wolajac funkcje API :) MessageBox(0, PChar('Najwieksza wartosc wlasna to' + #10#13+FloatToStr(w)), PChar('Wartosc wlasna'), MB_OK); Pozdrawiam

Jak w Delphi przekonwertować hex string na binarny string?

nieco bardziej optymalna wersja (bez jakiegos Power()...) function Hex2Bin(const h : string) : string; const Hex : string = '0123456789ABCDEF'; var i, j, p : Integer; begin Result := ''; for i := 1 to length(h) do begin p := pos(h[i], Hex) - 1; for j := 0 to 3 do begin Result := Result + Chr(Ord('0') + ((p and 8) shr 3)); p := p shl 1; end; end; end;

[Delphi] Przepisanie zmiennej string do zmiennej PChar.

To jest typowa metoda konwersji za pomocą rzutowania typów i nie wymaga allokacji pamięci.

Delphi: Jak podzielić string na części i zapisać do tablicy?

Witam, Jeżeli efekt końcowy ma być taki jak napisałeś: for i:=2 to 6 do if i mod 2 = 0 then tab[i div 2]:=tab[i-1]+tab[i] Jeżeli ma być 1 z 2, 2 z 3... to: for i:=2 to 6 do tab[i-1]:=tab[i-1]+tab[i] Pozdrawiam

[Delphi] - Podliczanie danych ze StringGrida do Edita

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.

[DELPHI] Jak dodać tekst na początku i końcu każdej linii w pliku?

Coś kiepsko szukałeś ;-) Memo1.lines.strings[x] - pojedyncza linia z Memo (x określa numer linii) memo1.lines.count - ilość linii Reszta to już podstawy (edycja stringu)

[delphi] Jak sprawdzić modyfikację zmiennej string w Delphi?

Witam W programie do zmiennych przypisuje zawartość z label. s:string; s:=label1.caption; Załózmy, że na początku zawartość label to - poznan12 po kliknięciu w button label zmienia się na - poznan34 Czy można sprawdzić czy string uległ modyfikacji ??

Jak zadeklarować wspólną zmienną string dla Form1 i Form2 w Delphi?

Zadeklaruj w form1 globalna zmienna np tak: var lancuch:string; A potem z drugiej odwoluj sie tak form1.lancuch:=edit1.text Warotsc z przykladowego pola edit z form2 zostanie przeniesiona do string zadeklarowanego w form1.

Delphi – jak sprawdzić i zmienić atrybut tylko do odczytu pliku?

function FileGetAttr(const FileName: string): Integer; function FileSetAttr(const FileName: string; Attr: Integer): Integer;

Delphi - funkcja Pos: wyświetlanie 9 znaków po znalezionym stringu

Tak na szybko : [syntax=delphi] function te9znakow(s1,s2 : string):string; var Polozenie : integer; begin Polozenie:=Pos(s1,s2); if polozenie>=0 then result:=copy(s2,Polozenie+length(s1),9); end;[/syntax]

[DELPHI] Tablica array z Stringiem - typ wywołania błąd portu COM

Liczba i opis błędów będą raczej stałe. Otwórz je jako stałe. Nie wiem, czemu chciałbyś je tablicować i w jaki sposób odwoływać się do tej tablicy. Numerami błędów ? [syntax=delphi]const IE_BADID = 'Błąd otwarcia portu COM'; IE_OPEN = 'tekst błędu'; [...] try //operacje na porcie except On E : EBADIDError do StaticText1.Test:=IE_BADID; On E : IEOPENError...

[DELPHI] Odbieranie stringów o zmiennej długości w IdTcpClient (INDY 10)

1.Wstaw IdGlobal do Uses to będziesz mógł korzystać z formy jaką Ci napisałem; 2.Zrób odczyt w oddzielnym wątku (TThread) to program nie będzie się wieszał; 3.Ustaw ConnectTimeout i ReadTimeout dla TCPClient1 (w milisekundach); 4.Program oczekuje na string'a zakończonego CRLF. Jak ustawisz timeout'y (pkt.3) to będzie czekał tylko zadany czas. Pozdrawiam...

Jak przekonwertować Integer i Boolean na String w Delphi?

Jak zmienić Integer, boolean na String ??????? Delphi

[Delphi] Usuwanie pionowych kresek z danych odbieranych przez Comport

A nacisnąć F1 i zerknąć do pomocy to nie łaska? procedure Delete(var S: String; Index: Integer; Count: Integer); Description Removes a substring from a string. In Delphi code, Delete removes a substring of Count characters from string S starting with S

[Delphi] Delphi: Jak sprawdzić, czy tekst z TEdit występuje w zmiennej typu string?

Witam, Zaczynam programować w delphi i mam pytanie jak sprawdzić czy tekst wpisany w edit1 znajduje się w zmiennej znaki zdeklarowanej jako string?

[delphi] [Delphi] Jak dokładnie sprawdzić obecność substringu w stringu?

Ależ jak rozumiem dokładnie to sprawdza, zmień jedną literę i wynik będzie inny (o ile pamiętam zero). Jakoś nie rozumiem pytania, może chodzi o sprawdzenie równości stringów; wtedy wystarczy (str=str).

[Delphi] Jak odczytać ścieżkę do uruchomionego programu?

Application.ExeName ( string )

Delphi, MySql i formatowanie łańcucha tekstu ze znakiem '

Naprowadzam a nawet daje gotowe rozwiazanie string := ' abcd'+#39+'efg'+#39+'hij '

Delphi 6.0: jak odczytywać po jednym znaku ze zmiennej...

W jaki sposób pobierać po jednym znaku ze zmiennej typu string??

[Delphi] Jak przekonwertować string szesnastkowy na Cardinal w Delphi?

Mam pewien problem.. Bo zmienna Cardinal może przechowywać też liczby w trybie szesnastkowym. Np $386AD76. Problem tkwi w tym że chciałbym że np w Edit podaję "386AD76" a on mi to zapisuje do zmiennej cardinal. Jak to zrobić?

Delphi 5 - brak reakcji programu po dodaniu zmiennej String w procedurze

Na bank będzie chodzić o uprawnienia... Poza miejscem instalacji są jeszcze katalogi 'Embarcader' w '\Users'. Pamiętaj o zmianie uprawnień wszystkich podrzędnych.

[Delphi] Jak pobrać zaznaczony tekst z RichEdit do stringa?

A czemu kasujesz na początek zaznaczony tekst? No zobacz ten swój kod - działa dokładnie tak, jaki wynik dostajesz. Jeśli chcesz wstawić znaczniki do zaznaczonego tekstu to po prostu robisz: <b/> ?

[delphi + sql] [Delphi + SQL] Problem z wyświetleniem SUM(CZASNEW) w FireBird 2.01

Witam, sprawdź jaki typ zwraca zapytanie, bardzo możliwe że jest to wartość numeryczna a Ty pobierasz ją jako string...

[Delphi] [Delphi 7] Jak naprawić błąd ładowania libmysql.dll przy SQLConnection?

Jak zwykle wyrzuca mi błąd Connection.Params.Append('Database=N... Nazwa błędu to "Unterminated string"

[delphi] Delphi 2009 - Jak naprawić błędne wyświetlanie znaków po migracji z Delphi 5?

Delphi 2009 jako standard używa kodowania Unicode. Musisz tak przerobić kod, żeby używał Unicode, lub dostosować go tak, aby wyświetlał "normalne" znaki. Podstawową różnicą jest deklaracja zmiennych znakowych. W Delphi 5 to był Char i zajmował w pamięci 1 bajt, w Delphi 2k9 zmienna Char zajmuje 2 bajty . Odpowiednikiem "starego" Char dla Delphi 2k9...

[delphi] Jak w Delphi przekonwertować string base64 na obrazek?

Hmmm , zdekodowac ???

[Delphi] Nie mogę wykorzystać Hgg w wierszu poleceń ?

no to nie dziwne że wywala ci taki błąd skoro napisałeś tak: klasa.Number := 'XXXXXX'; (rozumiem że := zapomniałeś tu tylko wkleić) a powinieneś napisać tak: klasa.Number := 123456; przecież jeśli coś piszesz w apostrofach 'XXX' to delphi traktuje to jako string (łańcuch tekstowy) a tu numer trzeba podać w postaci liczby! gdybyś miał formatkę i na niej...

[delphi] Jak sprawdzić wersję językową windows ?

Kiedyś sprawdzało się tak : [syntax=delphi] uses Windows, SysUtils; [...] var ID: LangID; Language: array [0..100] of char; begin ID := GetSystemDefaultLangID; VerLanguageName(ID, Language, 100); Label1.Caption := String(Language); end;[/syntax] Sprawdź, czy to jeszcze działa.

[delphi] [Delphi] Jak edytować pierwszą linię w pliku txt bez zmiany reszty?

Co do entera to string +#13

[Delphi] Jak poprawnie wyświetlić dane z RS w Memo?

Ostatni program działa w ten sposób że wyświetla tylko pierwszy stan licznika po włączeniu portu. Myślałem nad tym trochę i nie wiem czy nie zastosować takiego triku że łańcuch zaczyna się i kończy na jakimś charakterystycznym znakiem, które umownie zamykają klamrą właściwy string. Delphi czyta bufor i wyświetla w memo dane tylko wtedy kiedy w buforze...

[Delphi] - Przenoszenie wartości ze StringGrida do StringGrida

w linii: if strtoint(StringGrid1.Cells[x,y])<=0 then masz nieokreślone lub niewłaściwe wartości x i y ?

Książki i strony do nauki programowania strukturalnego w Delphi 7

Co o tych powiecie? 3.1.18. (10.11) Zabronione jest publikowanie informacji do źródeł, które po pewnym czasie wygasają (publikowanie odnośników do stron o charakterze krótkotrwałym) - arnoldziq. Sugeruję skorzystać z tego :

[Delphi 7] - Przesyłanie wsadu przez port COM do bootloadera - konwersja stringu

Zapisz sobie cały ciąg do pliku, np. w ten sposób : http://obrazki.elektroda.pl/8273523500_1...

Delphi - Jak pokryć procedurę ReadLn z dodatkowymi operacjami?

Nie rozumiem czemu z uporem maniaka chcesz robić po głupiemu? [syntax=delphi]uses SysUtils; procedure ReadLn(var FileHandle:TextFile;var Variable1:String); begin WriteLn('*'); System.ReadLn(FileHandle,Variable1); WriteLn('*'); end; var myFile:TextFile; var Line:String; begin AssignFile(myFile,'con'); Reset(myFile); ReadLn(myFile,Line); end.[/syntax]

Jak wyciągnąć wiele liczb ze stringa w Delphi przy użyciu TComport?

Dzięki, działa świetnie, przy wyświetleniu pierwszej linii w Memo, kolejne linie, które się pojawiają w memo nie są aktualizowane w Lebel*.text, pewnie to banalne ale ja dopiero zaczynam w delphi, poniżej fragment kodu. begin ComPort1.ReadStr(Str, Count); Memo1.Text := Memo1.Text+Str; st:=TStringList.Create; try st.Delimiter:='|';...

Delphi - Struktura i implementacja procedury i funkcji

Może zacznij od obejrzenia: TJvInterpreterProgram z biblioteki Jedy. Tak a propos kod który podałeś (nie wiem jakim bokiem ... do tego o co pytasz) da się to zapisać: [syntax=delphi]type TAr1S = array of String; procedure MCopy(var dst:TAr1S;const src:TAr1S); begin dst:=src; SetLength(dst,Length(dst)); end; function MText(const tb:TAr1S):String; const...

Delphi REST.Client.TRESTRequest.Resource jakiego jest typu (konwersja JSON/HTML)

Delphi twierdzi, że : [syntax=delphi]property Resource: string read GetResource write SetResource default 0;[/syntax] Więc wychodzi na to, że string. Co do JSON, to to jest STRING. Np. w talkim formacie : [syntax=text]{ "_type": "vm", "name": "A virtual machine", "memory": 1024, "cpu": { "cores": 4, "speed": 3600 }, "boot": { "devices": ["cdrom", "harddisk"]...

Lazarus - jak poprawnie pobrać polskie litery ze stringa?

(at)mietekn , w lazarusie String jest tym samym co AnsiString, sam Utf8 również nie pomoże bo znaki mogą być zapisane w więcej niż jednym znaku. (at)Pocieszny , [syntax=delphi]ShowMessage(UTF8Copy(Edit...

Delphi - wczytywanie i zapisywanie danych z pliku txt do SpinEdit i Edit/Label

Użyj typu "text" do odczytu z pliku, będziesz mieć gotowe funkcje czytające linijki tekstu do typu string (readln).

Jak stworzyć procedurę SQL Server 2k do tworzenia triggera z Delphi?

Wrzucasz do stringa caly utworzony kod triggera a potem ten string uruchamiasz na bazie tak jak zwykłe zapytanie.

Delphi: Jak znaleźć pozycję wzorca -??: w stringu?

a skąd wiesz że te 2 cyferki to 12? tam moze być coś pomiędzy 00 a 99 i niestety nie da sie przewidzieć co tam będzie! To przekonwertuj sobie liczbe na stringa, kolega podał przykład jak szukać stringa w stringu.

[Delphi] Jak ukryć plik z dynamiczną ścieżką bez błędów?

No to jeśli chce PChar,to podaj mu w postaci PChar... [syntax=delphi]SetFileAttributes(PChar(E... +'/System.ini'), FILE_ATTRIBUTE_HIDDEN);[/syntax] Jeśli podajesz tekst wprost, to w rzeczywistości jest to traktowane jak PChar i ewentualnie niejawnie rzutowane na string. Jeśli coś jest wynikiem innej funkcji i jest sklejane...

Jak odczytać adres zaznaczonej komórki w Delphi StringGrid?

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...

[c++] Jak poprawnie wywołać funkcję z Delphi DLL w C++?

Nie sądzę, aby były to typy integer, lecz całe obiekty, a to co znajduje się w wywołaniu jest tylko wskaźnikiem. Niemniej, jeśli znajdują się tam typy String (w obiekcie), to dal DLL nie nadaje się do uruchomienia z programami pisanymi na innych platformach. Tak samo String - nie wolno takiego typu stosować przy pisaniu DLL w Delphi bez korzystania...

[DELPHI] Konwersja danych z TRichEdit na wartości bajtowe w hex

jaki string?? to są ASCII

Delphi->StringGgid->Zmiana szerkości kolumny - JAK??

StringGrid ma pola: property ColWidths[Index: Longint]: Integer; property RowHeights[Index: Longint]: Integer;

Delphi - Odczyt danych z bufora ComPort do zmiennej Str lub Pamiec

Zapomniałem dodać deklaracji zmiennej Pamiec : var Pamiec:string; Konwersji żadnej nie robie. Z tego co czytałem to w Delphi domyślnie string odpowiada AnsiString. Dlatego wszystko deklarowałem jak widać.

[Delphi 7] Problem z odczytem danych z miernika na RS232

Chodziło mi czy RS'a ma w sobie ale ok widzę ze tak. i te dane odebrane w delphi sa prawidłowe? zapoznaj sie z funkcjami operacji na łańcuchach , skoro to urządzenie już wysyła takiego stringa.

[Delphi]ComPort - wysyłanie bajtowe, a nie string?

Wpisuję: Int := 1 + #13#10; ComPort1.Write(Int); Wpisz : var int : array[0..2] of byte; begin int[0]:=1; int[1]:=13; int[2]:=10; ComPort1.write(int,3); end;

Delphi 2010 - Wyjaśnienie pewnych linijek w programie

"wynik:= prostokat.tworz(StrToInt(Edit1.Text),Str... Ta linia tworzy klasę 'prostokat' pobierając dane z pól edycyjnych Edit1 i Edit2, zamieniając je z string na integer i zapisuje wskaźnik do utworzonej klasy w zmiennej 'wynik'.

[Delphi] Jak dodać separatory co 3 znaki w liczbach w Lazarusie (Delphi)?

1 234 567 890 czyli z odstępami co 3 znaki? Jeśli liczby całkowite to na przykład taką funkcją: [syntax=delphi] function IntToStrSepSp(i: int64): string; var ii: int64; s, s1, sign: string; begin if i < 0 then begin i := abs(i); sign := '-'; end else begin sign := ''; end; s := ''; repeat ii := i mod 1000; s1 := IntToStr(ii); i := (i - ii) div 1000;...

Jak przypisać wartość do pola rekordu w Delphi używając zmiennej string?

Witam, pojawił sie u mnie pewien problem, którego nie potrafię przejść, jeśli to w ogule wykonalne to proszę o pomoc. Mianowicie: type wykaz=record A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,... end; var tab:array of wykaz; dd:string; begin SetLength(Tab,3); dd:='A'; tab .dd :=123; // i tu jest problem, jak użyć wartości zmiennej dd jako...

[Delphi] Komponent do odbioru danych RS-232 z prędkością 115000

A sprawdziłeś jaki numer mają te śmieci? np. 10 i 13 LF CR czyli znak końca linii. 0 null oznaczenie końca stringu

Delphi XE8 .Zamiana pozycji kursora x na piksel (memo).

....dobrze że są tu tacy ludzie :) . Dziękuje o to mi chodziło. [syntax=delphi] st: string; begin st:=memo1.lines[memo1.CaretPos.Y]; label2.Left:= (canvas.TextWidth(st)); end; [/syntax]

Delphi 5: Błąd przy użyciu funkcji InputBox w procedurze Button1Click

bo to wszystko jest źle ;] sprawdź tak: [syntax=delphi] procedure TForm1.Button1Click(Sender: TObject); var dane:string; begin dane := inputbox('okno wprowadzania danych','Podaj imie',''); if Length(dane) <> 0 then Label1.Caption:='Witaj '+dane; end; [/syntax] chyba o coś takiego chodziło ? podstawowy błąd to to, że w if niema żadnego warunku,...

DELPHI. Jak przekazać listę indeksów jako parametr do zapytania SQL w Delphi?

W większości bibliotek nad warstwą SQL w różnych językach nie ma takiego czegoś dla IN () . Spotkałem tylko raz, ale to bardziej wysokopoziomowe obiektowe rozwiazanie w Javie Tam świadomie się podaje List i lista jest prawidłowo bindowana w takim miejscu Dwie wiadomości, dobra i zła a) trzeba sklejać ze stringów b) o ile będzie operarować na zmiennych...

Delphi - Jak obliczyć średnią z wartości z milisekundami w Edit?

A jaka to jest liczba "123milisekund" ? Delphi wyrzuci wyjątek o niemożności przekonwertowania. Jeśli już chcesz tak zrobić aby w edit'cie mieć liczbę i stringa to z powrotem musisz sobie tą liczbę odzyskać. Możesz zrobić tak: 1. szukasz na którym miejscu w stringu pobranym z edita jest ' ' <-spacja, czyli np: function LastDelimiter ( const Delimiters,...

Delphi - pokrycie procedury Add w obrębie obiektu TCheckListBox

No właśnie helper służy do takich rzeczy, jak m.in. nadpisywanie (override) metod. Przykładowo umieszczasz w swoim unicie: [syntax=Delphi]type THStrings = class helper for TStrings function Add(s: String): Integer; end; ... fucntion THStrings.Add(S: String): Integer; begin lblMoj.Caption := 'A teraz dodałem: ' + S; Result := inherited Add(S); // tu...

[Pascal->Delphi] Permutacje w Pascalu chcę przełożyć na Delphi

1. Zrób nową formę. 2. Wstaw na formę 3 Edit-y. (Edit1, Edit2, Edit3) 3. Wstaw na formę 1 Memo. (Memo1) 4. Wstawiasz jeden przycisk. (Button1) 5. Zmodyfikuj swoją procedurę liczącą w ten sposób : [syntax=delphi]procedure P(var A: string; B: string; R : integer); //zmiana var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then...

[Lazarus] - Jak zmienić przecinek na kropkę w danych do wykresu?

Zajrzyj tutaj : http://www.elektroda.pl/rtvforum/viewtop... jest wytłumaczone, dlaczego kropka jest traktowana inaczej niż przecinek. A zamienić jedno na drugie, to już chyba nie problem. Tym bardziej, że odczytujesz dane jako String. Taki kod powinien rozwiązać twój problem: [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses...

ATMEGA32 i DELPHI 7 - Błąd EConvertError przy konwersji String na Float

[syntax=delphi]var Value:Extended; var Str:String; Str:='12.34'; Value:=StrToFloatDef(StringReplace(Str,'... if IsNAN(Value) then Label1.Caption:='Nie udało się' else Label1.Caption:='Ok';[/syntax]

Delphi - jak poprawnie odczytać i wyświetlić dane z COM na wykresie?

Właściwie to wszystko poprzednio już napisałem. Po zrobieniu tego wszystkiego o czym poprzednio pisałem w obsłudze zdarzenia OnPacket piszesz np. [syntax=delphi] procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: String); begin chart1.Series[0].Add(StrToFloat(Str); end; [/syntax] lub robisz co chcesz ze stałą Str w której masz tylko tą...

Delphi: Konwersja 8 bitów z StringGrid na byte i odwrotnie do uC

Z glowy. Na byte: byte:=bitzkomorki1*2^7+bitzkomorki2*2^6+... Na bit: bitzkomorki8:=byte and 1 bitzkomorki7:=(byte shr 1) and 1 bitzkomorki6:=(byte shr 2) and 1 bitzkomorki5:=(byte shr 3) and 1 ... bitzkomorki1:=(byte shr 7) To wszystko ubrac w pentelki i nie powinno byc problemu

C++: Jak zaimportować ShortString z DLL napisanej w Delphi?

Na delphi to mocno się nie znam ale standardowo należy dopasować do siebie typ stringa oraz dodatkowo może być jeszcze różnica z cdecl po jednej stronie i stdcall po drugiej. więc trzeba to wyrównać. W DLL'ach C pewnie to ANSII czyli prosta tablica zakończona NULL czy podobnym asciiz (nie pamiętam dokładnie). W C++ może to być std::string A w delphi......

Stringgrid - zapis i odczyt w C++ zamiast Delphi, jak to zrobić?

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...

Jak przekonwertować binarną wartość na szesnastkową w Delphi 6?

Witam Moja propozycja jest następująca: mając string z poszczególnymi bitami dzielisz go na kawałki 4-ro znakowe. I wtedy taki czteroznakowy string zamieniasz na odpowiadającą wartość HEX. Potem pobierasz kolejne cztery znaki i znów zamieniasz. Możesz sobie zrobić np. tablicę w której umieścisz np. 100 bitową liczbę. Kolejne dane będziesz pobierał z...

Jak wydrukować cały StringGrid w Delphi na wielu stronach?

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 .

[Turbo Delphi] Jak napisać program w Turbo Delphi do obliczeń algorytmem Newtona?

Witam! 1.Z kodu źródłowego trzeba usunąć '{$APPTYPE CONSOLE}' 2.Zamienić wszystkie 'writeln' na odpowiednią metodę komunikacji z użytkownikiem np. 'memo1.Text:= 'Obliczanie pierwiastka funkcji - metoda Newtona';' 3.W zamian za 'readln;' wpisywać dane w pole 'Edit' 4.Przed obliczeniem konwertować dane z 'string' na liczbę np. 'x0:=StrToFloat(Edit1.Text);'...

Delphi: ShellExecute uruchamia plik exe z pulpitu zamiast z ini

Nacisnąć F1 i czytać! HINSTANCE ShellExecute( HWND hwnd, // handle to parent window LPCTSTR lpOperation, // pointer to string that specifies operation to perform LPCTSTR lpFile, // pointer to filename or folder name string LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters LPCTSTR lpDirectory, // pointer to string that...

Delphi - Błąd Run Error(217) przy użyciu TOpenDialog i StringGrid

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?

Jak ustawić aktywną komórkę w StringGrid Delphi po wczytaniu danych?

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

Delphi - StringGrid - jak wyśrodkować lub wyrównać tekst w komórkach?

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/...

Jak wyświetlić polskie znaki z pliku txt w Delphi memo i 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ł.

[Delphi] Błąd przewijania StringGrid po dodaniu OnMouseDown dla prawego przycisku

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)...

Delphi - błąd kompilacji przy dzieleniu wartości w Edit4.Text

Co ma znaczyć ten znak " w trzecim i siódmym wierszu? To pusty string. Dwa pojedyńcze apostrofy.

Jak dodać ComboBox do StringGrid w Delphi 6? Szukam wskazówek i słów kluczowych

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...

Delphi - jak wywołać funkcję z parametrem string z DLL i zwrócić string?

Sprawdzałem, jest jak trzeba i kicha.

Komunikacja USB/RS-232 między Delphi 7 a Arduino - jak to zrobić?

Więc przerób na przyszłość na: [syntax=delphi]procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var Date1,Date2,Row,Str:string; begin ComPort.ReadStr(Str,Count); Memo.Lines.Add(Str); while Length(Str)>0 do begin Row:=Parse(Str,#13); Label1.Caption:='wynik odczytu Date1= '+Copy(Row,1,1);//początek danych Label2.Caption:='wynik odczytu...

[Delphi] Jak znaleźć drugie wystąpienie wyrazu w stringu?

Zrobiłem to tak :) [syntax=delphi]var s:string; begin s:=RichMemo1.Lines.Text; s:=StringReplace(s,' ','',[rfReplaceAll]); s:=StringReplace(s,#13,'',[rfReplaceAll]... s:=StringReplace(s,#10,'',[rfReplaceAll]... //na wypadek entera wstaionego kodem end; [/syntax]

Delphi - podział programu na moduły, bądz pliki dołączone

W przypadku bibliotek dynamicznych, jak wcześniej pisałem, trzeba zrezygnować z tak wysokiego poziomu abstrakcji na rzecz WinAPI i najlepiej standardów przekazywania parametrów zgodnych z Windows (nie z Delphi), szczególnie tyczy się to stringów. W przypadku funkcji graficznych, jak wcześniej pisałem, trzeba operować na DC obiektów i rysować z użyciem...

[DELPHI] Jak zaimplementować wyszukiwanie zdjęć w Delphi z folderu programu?

Nikt nie będzie sprawdzał kodu, za który musi płacić. Usuń pobieranie punktów za pobranie tego pliku :) Odpowiedź na pytanie z pkt. 1 : var SciezkaPliku : string; [...] GetDir(0,SciezkaPliku); SciezkaPliku:= IncludeTrailingBackslash(NazwaPliku&... if FindFirst( SciezkaPliku+Edit1.text+'*.*', faAnyFile - faDirectory,...

Błąd z funkcją integer przy obliczaniu pierwiastków w Delphi

msg + #13#10 + s to konktatenacja ( łączenie ) stringów msg łączysz z #13#10 ( nowa linia ) i ze stringiem s, który tworzysz za pomocą:Str(x1:0:6, s); x1 - liczba z której tworzysz stringa 0:6 to chyba zakres s - zmienna do któ¶ej zapisujesz to pzdr.

Jak wyszukać i wyświetlić linię z Memo1 w Delphi po numerze w Edit1?

No chyba, że te dane są wprowadzane wprost w takiej postaci do programu i nie ma innej możliwości (np eksport z innego programu) ;) Wtedy trzeba by je zdeparsować. Zdeparsowanie juz przeciez podales prawie gotowe :), znalezc znak - i podzielic stringa na dwie czesci.

[Delphi] - Umieszczenie pliku .pas jako stringu w zmiennej

Korzystam z JvInterpretatora który umożliwia wykonywanie kodu Delphi napisanego w skompilowanej już aplikacji. Niestety, z tego co widzę to dodawanie unitów z których chce się skorzystać jest utrudnione. Polega to na napisaniu unitu w procedurze GetUnitSource samego interpretatora, np.: Source była cała jego treść. Próbuję zrobić coś takiego ale nie...

DELPHI: Jak wyświetlić zawartość folderu w combobox?

Generalnie chodzi o to że mam w plikach ini zapisane pomiary z różnych dni. Każdy plik to inny punkt pomiarowy i jeśli dodaję nowy punkt to chciałbym to zrobić albo wpisując do ComboBox albo przez Edita o nazwie 'lokalizacja'. Teraz mam tak: jeśli wybiorę punkt pomiarowy w Combo automatycznie wpisuje mi tą nazwę do 'lokalizacji'. Dlaczego odradzasz...

[delphi] Jak automatycznie zapamiętać dane z editów na formie?

To do proste: [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var I : integer; s : string; begin for i:=0 to self.ComponentCount-1 do if (self.Components[i] is TEdit) then begin s:=TEdit(self.Components[i]).name+'='+TE... //store s bla, bla bla end; end;[/syntax] Oczywiście zamiast 'self' można wstawić np. nazwę...

Jak wysłać dane przez RS232 w Delphi 7 do ATmegi8?

skorzystaj z metody WriteStr i wyślij string

Delphi/Programik - Pomysł na kod, cokolwiek co mnie naprowadzi

Proszę bardzo : [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type zapytanie = packed record pytanie : string; odpowiedz : string; end; const Ile_pytan = 3; tablica_pytan : array[1..Ile_pytan] of zapytanie = ( (pytanie : 'ile to jest 2 * 2? '; Odpowiedz :'4'), (pytanie : 'ile zostanie, jeeli odejmiesz 5 od 7? '; Odpowiedz :'2'),...

[Delphi] Jak wstawić n spacji na początku stringa?

StringOfChar(' ',n)+ i właśnie o to mi chodziło, wiedziałem że coś takiego musi być :)

[Delphi] Jak wczytać dane z TStream do Stringa w SQLQuery?

w google wpisałem streamtream delphi i oto, co na piątym linku znalazłem: ReadString - faktycznie niepotrzebne, bo można użyć DataString który jest w zasadzie tym samym, co ReadString(Size) .

Delphi- Problem z odczytem danych odbieranych przez RS232

Mam pewien problem z odczytem danych w delphi nadawanych przez RS232. Do nadawania danych wykorzystałem mikrokontroler który nadaje mi siedmio-znakowy string z częstotliwością co 500ms. Do odczytu w delphi wykorzystałem funkcje WIN API od obsługi Rs232, sam odczyt realizowany jest na timerze ustawionym również na 500ms problem polega na tym, że np wartość...

Delphi 5: Konwersja stringa z TComPort na integer - błąd usuwania #13#10

Serdeczne dzięki za okazaną pomoc, światełko w tunelu pokazał mi mirekk36 w jednym z jego wcześniejszych postów http://www.elektroda.pl/rtvforum/topic71... Rozwiązanie okazało się banalnie proste, w zasadzie bez pisania ani jednego słowa kodu, genialne ! Dokładnie rzecz biorąc komponent ComDataPacket z jego zdarzeniem OnPacket. Musiałem tylko...

[Delphi] - ExtractStrings nie działa ze znakiem aposrofu.

Moze zle wczytujesz stringa :P ? [syntax=delphi]S:= SL.Lines.Strings[1] [/syntax]

Lazarus: Jak połączyć liczby w TEdit w kalkulatorze?

Wiem ze może to niedydaktyczne ale to może być tak [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var a : string; // zdefiniowanie zmiennej reprezentującej zawartość Edit1 b : integer; // zdefiniowanie liczby do obliczeń begin a := Edit1.Text ; // wczytanie do zmiennej Edit1.Text:=a+'1'; // dodanie 1 do zmiennej b := StrToInt(a); //...

Jak dodać wyjątki imion i elementy graficzne w Delphi do programu rozpoznającego płeć?

Masz i weź się za naukę! [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; const wyjatki : array[1..3] of string = ('Kuba','Barnaba','Jarema'); var imie : string; mezczyzna : boolean; x : integer; begin mezczyzna:=false; write('Wpisz swoje imie aby sprawdzic czy jestes Mezczyzna : '); readln(imie); if imie[length(imie)] in ['a','A']...

[DELPHI] - jak sprawdzić czy np port com1 jest w komputerze?

Nie prościej, o ile jest dostępna w Delphi, skorzystać z funkcji QueryDosDevice (http://msdn.microsoft.com/en-us/library... Dzięki temu nie bawimy się w komponenty i kod jest bardziej przenaszalny. Przykład użycia: if (DWORD length = QueryDosDevice(NULL, buf, bufSize)) { for (DWORD i=0; i < length; ++i)...

WinAPI C++: Zwiększenie interlinii w funkcji DrawText podczas drukowania

skopiuję z Delphi funkcję opakowującą: GetTextExtentPoint32 Handle to oczywiście w WinAPI DC (bodajże ;) )

[delphi] Jak napisać warunek w Delphi do obsługi przycisku BitBtn1 i Timer1?

StringReplace. Ale jeśli wiesz, że występują zawsze i są tylko na końcu, możesz po prostu obciąć stringa funkcją Delete.