memo1 lines

[Delphi] Delphi Memo – usuwanie ostatniej linii z Memo1.Lines bez kasowania całości

Memo.lines.Count - określa ile jest linii Memo1.Lines.Delete(numer) - kasuje linie o numerze numer Z tego wynika że Memo.Lines.Delete(Memo.Lines.Count-1) - kasuje ostatnią linie. Dlaczego -1 ponieważ indeksy liczone są od wartości 0 czyli linia 1 - index 0, linia 2 -index 1, natomiast Count zwraca ilość linii czyli 1 linia, 2 linie oczywiście przydało...

Delphi: Jak poprawnie zapisać 'AnsiString' do 'TStrings *' w Memo1?

Uczysz się jednak C++ Buildera. Do powyższego kodu potrzebujesz również komponentu z karty Dialogs- SaveDialog. Linijkę - [syntax=c]Memo1->Lines=czasek;[/syntax] konwertujesz na format AnsiString lub nowszy UnicodeString: [syntax=c]Memo1->Text=AnsiString(czasek)... Zawartosc Memo1 zapisujesz wykorzystujac wlasnie SaveDialog: [syntax=c]if(SaveDialog1->Execute())...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Memo Builder 6 – jak dodać tekst do Memo1 w nowej linii przy każdym wywołaniu?

Form1->Memo1->Lines->Add((AnsiString)htt...

[Delphi] - Szyfr Cezara nie działa, jak poprawić kod?

Poprawiłem, begin i end mi się zawieruszył :) Jak chcesz podmienić tekst, to zapisuj ten zakodowany teksy nie do memo2 tylko do memo1. procedure TForm1.Button1Click(Sender: TObject); var s : ansistring; i,j : integer; begin for i := 0 to Memo1.Lines.Count-1 do begin // !!!! s := memo1.Lines[i]; for j := 1 to Length(s)...

Literki zmieniane na kod ASCII przy wykorzystaniu petli

Niech ma: procedure TForm1.Button1Click(Sender: TObject); var Petla: char; Kod1: byte; Kod2: byte; begin with Memo1.Lines do Clear; for Petla:='A' to 'Z' do begin Kod1:=Byte(Petla); Kod2:=Ord(Petla); with Memo1.Lines do Add(Format('''%s'' %d %d',[Petla,Kod1,Kod2])); end; end;...

Borland C++: Jak załadować dane z Memo1 do tablicy?

Witam Zobacz to: for(int i=0; i<10; i++) { Tab[i]=inttostr(memo1->li... }

[delphi] Delphi – jak zapisać co drugą linię z Memo1 do pliku .txt w procedurze?

[syntax=delphi]procedure TForm1.Button3Click(Sender: TObject); var TF : TextFile; i : Integer; begin AssignFile(TF,extractfilepath(applicatio... ); // tu nie powinno być '\dane.txt' ? bo nie pamiętam try Rewrite(TF); i:= -2; repeat inc( i, 2 ); // i:= i +2; Writeln(TF, Memo1.Lines[i]); until i>= Memo1.Lines.Count -1 showmessage('Zapisano...

Borland C++ Builder 6 – błąd undefined symbol 'open' przy odczycie pliku ifstream

jak zrobisz Memo1->Lines-> i analogicznie myśląc wpisujesz SaveToFile a najprościej w takich przypadkach użyć google.pl -> "c++ builder memo zapisywanie do pliku" pozdrawiam Thorr

C++ - konwersja AnsiString do base64 w Borland Builder 6

void __fastcall TForm1::Zakoduj1Click(TObject *Sender) { AnsiString text = Memo1->Lines->Text; // zakoduj do base64 //AnsiString b64enc = base64(text.c_str(), text.Length(), 0); int flen;//dlugosc zwruconego textu char *b64enc=base64(text.c_str(), text.Length(), &flen); // koniec kodowania Memo1->Text = b64enc; free(b64enc); // zaalokowane przez malloc...

Jak wyodrębnić pary znaków z pliku txt w Borland C++?

Zrobilem Ci na StringGridzie, szybciej bedzie niz na Editach. Po kolei: zadeklaruj sobie 2 zmienne globalne: AnsiString para; int poz=10; pierwsza do przechowywania jednej z 17 par z pojedynczego wiersza, potem pozycja w AnsiStringu naszej pary. (na samej górze przed funkcjami) To pewnie juz wiesz ale zebys nie przeoczył to napisze po kolei: Na formatce...

Delphi - Jak usuwać dane z TStrings w TMemo przy przekroczeniu limitu?

while Memo1.Lines.Count > 10 do Memo1.Lines.Delete(0);

[Delphi] czytanie linii z pliku .txt i zapis do nowego pliku .txt po edycji

Witam. Lepiej zrób tak jak radzi kolega Dżyszla: TStringList. Kod dużo się nie zmieni, a będzie działać szybciej i wyglądać bardziej profesjonalnie. Pozdrawiam! Bym umiał to bym zrobił, jednak jestem na podstawowym poziomie i ze wszystkim się męczę po 15 godzin dziennie. Dobra, wykminiłem coś takiego. Pobiera mi adresy email które są w notatniku (w...

Jak wyświetlić znaki Unicode zamiast liczb w Memo1 w C++?

Memo1->Lines->Text=Memo1->Lines->Text+li... popraw na Memo1->Lines->Text=Memo1->Lines->Text+ci...

Delphi jak wyłączyć strzałki?

Witam, Żeby skasowć wybraną linię i przeniesć kursor na koniec linii poprzedniej można wykorzystać np. taką konstrukcję: Memo1.Lines.Delete(n); Memo1.Lines[n-1]:=Copy(Memo1.Lines[n-1],... Memo1.SetFocus; Pozdrawiam O tym co powyżej zapomnij, bo trzeba skasowany znak (#10) uzupełnić. Co do całości Twojego postu spróbuj czegoś...

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

nie takie trudne :P procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to memo1.lines.count - 1 do begin if (pos(edit1.text, memo1.lines.strings[i]) > 0) then begin edit2.text := memo1.lines.strings[i]; break; end; end; end;

C++Builder 5: Jak wyświetlić dane binarne z pliku *.bin w formacie HEX?

Cześć. Wykombinowałem coś takiego: void __fastcall TMainForm::CreateMDIChild(String Name) { TMDIChild *Child; //--- create a new MDI child window ---- Child = new TMDIChild(Application); Child->Caption = Name; if (FileExists (Name)) Child->Memo1->Lines->LoadFromFi... unsigned char InputData[512]; unsigned char b; int i,j; Child->Memo1->Lines->Text...

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

[C++Builder] Kasowanie zawartości pliku,typy danych+bonus;)

Ad1)Połóż na formie Memo na formie i Memo1->Lines->LoadFromFile(""); Memo1->Clear(); Memo1->Lines->SaveToFile(); Ad2) char *A=Edit1->Text.c_str(); Ad3)Nie rozumie pytania.

[c++]Konwersje long double do double lub String - bład

void __fastcall TForm1::Button3Click(TObject *Sender) { double tabt[1000],tab3[6]; long double tab2[6]; for(int i = 0 ; i < 6 ; i++) { tab2[i] = 0; tab3[i] = 0; } for(int i = 0 ; i < 1000 ; i++) tabt[i] = RandG(Edit1->Text.ToDouble(&#...

Dodawanie i usuwanie zakładek w TabbedNotebook Delphi, ograniczenia Memo

Witam, 1.Dodanie zakładki: TabbedNotepad1.Pages.Add(NazwaStrony); 2.Usunięcie zakładki: TabbedNotepad.Pages.Delete(NumerZakładki... 3.Ograniczenie ilości linii (np.): if Memo1.Lines.Count<=24 then ... 4.Ograniczenie długości linii (np.): Memo1.Lines.Add(Copy(strLinia,1,80)); Odnośnie 3 i 4 sposób zależy od tego jak jest wypełniane pole Memo.

Kopiowanie zawartości Memo do tablicy znakowej i odczyt int w C++Builder

Dokladniej: Memo1->Lines gdzie np. dane mozna wyciagnac tak: for(int i=0; i<Memo1->Lines->Count;i++) { // linia = Memo1->Lines[i]; np. "123der4f" ;-) } a jesli znajduja sie tam liczby to w miejsce linia: int value = StrToIntDef(Memo1->Lines[i], -1); gdzie -1 zwroci wtedy gdy konwersja sie nie powiedzie. Jesli chodzi o plik .txt no...

Błąd kompilacji w Lazarus: brak funkcji AssignPrn dla drukowania Memo

Z helpa borlanda: procedure TForm1.Button1Click(Sender: TObject); var r: TRect; i: Integer; begin with Printer do begin r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200)); BeginDoc; Canvas.Brush.Style := bsClear; for i := 0 to Memo1.Lines.Count do Canvas.TextOut(200,200 + (i * Canvas.TextHeight(Memo1.Lines.String...

Żenująco wolne łączenie aplikacji TCP IP C++Builder

Kod źródłowy serwera uproszczony do minimum. #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------... #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------...

Odbieranie e-maili POP3 w Delphi za pomocą komponentów INDY

Jeszcze raz przetestowałem procedurę. Według mnie działa. Wczytuje wiadomości z serwera. W Memo1 umieszcza informacje od kogo przyszła wiadomość, zamieszcza jej treść. Jeżeli u Ciebie nie wyświetla treści wiadomości, to pewnie dlatego, że są one puste (nie mają treści) :D. Poniżej kod, w którym dodałem opcje wyświetlania tytułu wiadomości. procedure...

Jak wysłać plik HEX do ATmega8 przez COM w Delphi 7?

Wczytujesz hex do komponentu memo1 (musi mieć zaznaczoną opcję WordWrap=False żeby nie zawijał tekstu) wysłanie przez komponent Cport for i := 0 to Memo1.Lines.Count - 1 do begin st := Memo1.Lines.Strings[i]; If length(st) > 0 then begin st := st + #13; ComPort1.WriteStr(st); delay(400); // moja procedura...

Delphi Memo - dlaczego FindDialog nie wyszukuje tekstu?

Nie wiem czy Memo1.lines to prawidowa wartość może nStart:=Pos(lowerCase(FindDi...

[C++] Zamiana pierwszej małej litery w stringu na dużą?

Dziekuje za wasze porady obecnie całość aplikacji wygląda następujaco: załącznik RAR http://przeklej.pl/plik/znaczki-rar-0001... Edit1->Text = Memo1->Lines->Text.Length()... ; AnsiString nap = Memo1->Lines->Text; nap = nap.Trim(); for(int i = 1 ; i<= nap.Length() ; i++) { if(int k = nap.LastDelimiter("...

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]

Informacja z RS232 - Jak wydobyć dane ze Stringu w BC++ 6

Witam. Odnośnie punktu 2, niewiem czy pomogę ale wyciąganie ze stringów realizowałem w Delphim w nastepujący sposób. Do tego potrzebne są trzy funkcje: 1. function Length(S: string) : Integer; - Funkcja zwraca liczbę znaków, które zawiera łańcuch S. Liczba znaków nie zawsze oznacza liczbę bajtów zajmowanych przez S. 2.function Pos(Substr: string; S:...

Błąd w Borland C++: problem z indeksowaniem i porównaniem znaków w Memo1 i Memo2

void __fastcall TForm1::Button1Click(TObject *Sender) { char dw[200]; for(int i=1;i<=Memo1->GetTextLen()... dw[i]=(char)Memo1->Li... ; char ciag[200]; for(int j=1;j<=Memo2->GetTextLen()... ciag[j]=(char)Memo2->...

[C++] C++ Borland 5: Jak zapisać i wczytać highscore graczy do pliku w prostej grze?

A skąd chcesz te dane zapisywać/do czego wpisywać? Bo np. taki komponent MEMO ma bezpośrednią opcję zepisu do plik: Memo1->Lines->SaveToFile("C:/wyniki.txt"... , sam sobie tworzy plik jak go nie ma. Podobnie odczyt: Memo1->Lines->LoadFromFile("C:/wyniki.tx...

[Delphi] Jak zresetować Memo po obliczeniach czasu połowicznego rozpadu?

Wstaw sobie na forme komponent SaveDialog z zakladki Dialogs i uzywaj if SaveDialog1.Execute then // wtedy w SaveDialog1.FileName masz nazwe pliku do zapisania czyli mozesz zrobic tak: if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.F... Pozdrawiam!

[Delphi] Jak poprawnie zamienić wiele liczb HEX na DEC w Memo?

mysle ze w petli for należałoby to zrobić i zamieniać np. Memo1.Lines[i]

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

Na przykład w zdarzeniu OnCreate dla formy. Kliknij 2x w okno formy w miejscu gdzie nie ma żadnego komponentu, otworzy się kod tego zdarzenia, tam wpisz Memo1.Lines.Clear; Za chwilę wpadnie tu moderator i skasuje cały temat za brak inicjatywy.

Odwoływanie sie do dynamicznie stworzonego obiekt TImage c++

jak to zapamiętać w zmiennych mże jakiś przykałd ?? tworze je takim kodem w ten sposób x=Edit1->Text.ToInt(); y=Edit2->Text.ToInt(); Memo1->Lines->Add(x); Memo1->Lines->Add(y); TImage* DynamicImage=new TImage(this); DynamicImage->Left=x; DynamicImage->Top=y; DynamicImage->Name="Image"+s; DynamicImage->Parent=this; a w jaki sposób uzyskac te wskaźniki...

[Delphi] - ComPort i czytanie bajtów w kolejności

OK! Wiadomo co masz odebrać, ale podpowiedz jak jest wysyłana twoja ramka. 1) jednorazowo? 2) cyklicznie, co pewien czas? 3) w odpowiedzi na polecenie, ktore wysyłasz do urządzenia? 4) ma stałą liczbę bajtów? Chodzi o to żeby w programie wykryć początek/koniec ramki. Samo porównanie jest trywialne jeżeli ramkę składać w string(ciąg znaków) Jeżeli założyć,...

[Delphi] Jak obsłużyć konkretne błędy HTTP w IdHttp?

Witam. Chcę by mój program wykonywał różnie rzeczy w zależności od tego, jaki error dostanie. Np. przy 403 ma dodać "brak dostepu" do Memo1.Lines, a przy 404 np. "brak strony". Jak to zrobić? Poniższy kod ogólnie reaguje, ale nie na dany, konkretny error. [syntax=delphi]try IdHTTP1.Get('http://google.pl/123'); except Memo1.Lines.Add('obojetnie jaki...

Delphi - jak rozdzielić dane z portu COM do Memo1 i Memo2?

Jeśli to tylko literka zawsze na pierwszym miejscu... [syntax=delphi] litera := dana[1]; Delete(dana, 1, 1); case litera of 'a': Memo1.Lines.Add(dana); 'b': Memo2.Lines.Add(dana); end;[/syntax] ...czyli jeśli chcesz na podstawie 1 znaku coś zrobić, to go wyciągnij sobie do zmiennej, potem usuń z pierwotnej i operuj.

Jak w Borland C++ zamienić plik binarny na int krok po kroku?

int howmany = file->Size / 1; ????? po co dzielisz przez 1 ?? Z pliku można czytać bajt po bajcie a bit po bicie sie nie da. W sumie odczytywanie baj po bajcie to to samo co odczytywanie bit po bicie ( 1 bajt = 8 bit) tylko w paczkach 8 bitowych. przyklad: unsigned char bit; for (int i = 0; i < howmany; i++) { file->Seek(i, soFromBeginning);...

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

na czystej formie wstaw Edit1, Memo1, Buton1 i Image1 unit Unit1; interface uses JPEG, // <<------------------ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; procedure TForm1.Button1Click(Sender: TObject); var bmp:TBitmap; NazwaPliku:String; SciezkaDostepu:String;...

Błąd EAccessViolation przy ponownym wczytywaniu pliku w Borland Builderze

Gdy otwieram pierwszy raz otwieram plik program się wykonuje bez problemu, jest to co ma być jego cała realizacja na obiekcie Memo1. Gdy jednak drugi raz daję otwórzy to wywala błąd i kody z języka niskiego poziomu się pokazują a konkretnie to: Project SDIAPP.exe raised exception class EAccesVIOLATION with message 'Acces violation at adress 0042AF64....

C++ Builder TEdit - Wyrównanie tekstu do prawej i błędy kompilacji

To prawda programowanie obiektowe to nie najmocniejsza moja strona, a co do tematu to w podanym linku jest chyba dalej informacja o tworzeniu nowego komponentu jednak wystarczy mi użycie TMemo. i Odwołania Edit1->Text = ... zamienie na Memo1->Lines->Strings[1] = ... Dzięki za podpowiedź.

C ++ Builder - Memo - dopisywanie w tej samej linii

Chyba chodzilo Ci o to: Form1->Memo1->Lines->Insert(0,Bufor) Pierwszy raz wpisuje w lini nr 0, ale jak chce cos dopisac w ten sposob to to co bylo w czesniej przesuwa to nastepnej linii a to co chce wpisac wpisuje w lini nr 0. Takze to raczej mi nie pomoze:cry:

Jak wygenerować plik *.exe w C++ Builder 6 do uruchomienia na innym PC?

Już znalazłem i poprawiłem :D Ale nasuwa się kolejne pytanie :idea: Jak w komponencie Memo1 robić żeby najpierw załadować 1 literę a potem kolejną do bufora :?: czy jest taka możliwość :?: NP napisze patryk i chcę po kolei ładować do zmiennej char a najpierw znak a='p' następnie a='a' ... a='k' char a; for (int i = 1; i <= Memo1->Lines->Strings[0].L...

[C++] Dokładny pomiar czasu w tikach procesora dla funkcji cosinus()

Tutaj jak obliczyć w ms: long double ms; unsigned __int64 freq, counterStart, counterStop; QueryPerformanceFrequency(reinterpre... (&freq)); QueryPerformanceCounter(reinterpret_... (&counterStart)); Sleep(250); QueryPerformanceCounter(reinterpret_...

Delphi cport: Jak wykonać akcję po odbiorze tekstu z RS232?

zmieniłem na coś takiego: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var d:string; begin ComPort1.Readstr(d,count); Memo1.Text:= Memo1.Text+d; if Pos('Linia', Memo1.Lines[Memo1.count - 1]) > 0 then Label20.Caption := 'Alarm'; end; Kod proszę umieszczać w znacznikach code -...

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

Ciekawe jest to, że format XML nie pozwala w swojej specyfikacji na używanie w swojej zawartości zarówno pojedynczego jak i podwójnego znaku apostrofu. Zajrzyj proszę tutaj : [url=http://en.wikipedia.org/wiki/List_o... entities in XML. Skoro takie znaki się w XML-u znajdują,...

Jak podzielić zmienną typu string w VBA w Access?

podzial w c++ builder komponenty memo1, i jakis guzik :) mozna wrzucic w funkcje lub w guzik ponizszy tekst //////////// rozdziel na czesci stringa rozdzielnik ; String a, rozdzielnik,b; int poz,poz2; poz=0;poz2=0; rozdzielnik=";"; a="11;22;333;4444;55555;666666;7777777;8... //string do rozebrania na czesci for (int x=1;x<a.Length()+1;x++)...

[c++ Builder 6] Dodawanie/edytowanie znaków TMemo/TRichEdit

Sie nie załamuj tylko lepiej pomóż mi to odczytać :) __property int Count = {read=GetCount, nodefault}; Użycie: Edit1->Text = IntToStr( Memo1->Lines->Count ); Dobrze że są przykłady w pomocy.. Dzięki za pomoc. Mój problem został rozwiązany. PS. BCB używam tylko do pisania prostych terminali pod urządzenia. to nie moja specjalność...

C++ Borland: Jak zamienić tekst na kod binarny w Memo?

Zastanawia mnie czego wybrałeś słowo „elektroda” ;-) a tak poważnie to potrzebowałam wskazówki a potem już jakoś poszło:-) dopełniłam wszystkie wartości do 8 bitów. Do rozwiązania całego zadania mam jeszcze daleko także liczę na dalsze porady… Dodano po 47 Potrzebuję od Was kolejnej pomocy... muszę wyświetlić jakieś słowo ale nie wczytując...

[delphi] [Delphi] Jak przypisać wartości z Memo do Edit z pliku INI?

cześć Czy ktoś zna może sposób aby jak najprościej wyciągnąć dane z memo tzn do memo wczytuje plik ini S : String; NewStr, OldStr : String; begin S := memo1.lines[1]; OldStr := 'imie='; NewStr := ''; edit1.text:= StringReplace(S, OldStr, NewStr, [rfReplaceAll]);

[Delphi] Problem z odczytem pliku tekstowego - jak to naprawić?

Dobra, bo zmykam spać... procedure load(const name:string; const aMemo: TMemo); var linia: String; begin if not FileExists(name) then begin MessageDlg('Nie ma pliku',mtWarning, [mbOk], 0); end else begin assignfile(plik,name); {$I-} //wyłączamy programowe sprawdzanie I/O reset(plik);...

Import 3500 plików TXT o niestandardowej strukturze do bazy MS Access – jak mapować pola?

Sprawa nieaktualna. Już poradziłęm sobie. Progs w Delphi. Na początku trzeba podłączyć do programu bazę danych Accessa przez ADOTable i DataSource. Teraz na formę trzeba wywlec potrzebne pola z listy dostepnej po dwukliku na ADOTable, prawym i Add Fields. Następnie kod funkcji: function TForm1.getxy(x,y,m:integer)&... var tm1, tm2:string;...

Kod w Delphi do obsługi terminala RS232 - szukam przykładu

Witam. Ściągnij sobie komponent comport. Na forme wstaw 2 x memo, 1 x edit, 3 x buton i comport. 'button1 do łączenia i rozłączenia 'button2 do wysyłania 'button3 do ustawienia portu 'edit1 do wpisania tekstu jaki chcesz wysłać 'memo1 do odebrania tekstu 'memo2 do "pomocy" ustawione jako niewidoczne 'zdarzenie do ustawienia portu procedure TForm1.Button3Click(Sender:...

[VB2005] - Poszukuję wskazówki do prostego programu w Visual Basik 2005

Sprawdz czy o takie cos chodzi.Narazie tylko CTRL+ALT+W,CTRL+ALT+S. [syntax=cpp] //--------------------------------------... #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include <Clipbrd.hpp> //--------------------------------------... #pragma package(smart_init)...

Błąd podczas instalacji INDY 10.0.52 w Delphi 6 Enterprise

atom1477: Juz chyba wiem o co chodzi.. UserID jest w INDY 8 (i wczesniejsze wersje tj. Winshoes). A tu troche sie inaczej to obsluguje.. przynajmniej z tego co pamietam bo wygrzebalem w czelusciach swojego dysku moj stary programik do sprwdzania poczty, ktory dzialal na Winshoes.. troszke go przerobilem do Indy 8 i tak: na formie: Msg: TIdMessage;...

jak zainicjować bibliotekę bass.dll w c++ 6 builder

Witam ! Chcę napisać program w c++ 6 builder który będzie zaświecał diody pod portem com do muzyki i mam taki problem z biblioteką bass że podczas kompilacji wyskakuje mi taki błąd : [Linker Error] Unresolved external 'BASS_Init' referenced from C:\DOCUMENTS AND SETTINGS\ALBERT\PULPIT\PROGRAMIK\UNIT1.O... Używam wersji biblioteki bass 2.3.0.1. Szukałem...

Delphi7 - Otwieranie wszystkich plików z katalogu kolejno i

Witam, Z pliku do Memo: Memo1.Lines.LoadFromFile('ścieżka'); Z tym, że drugi plik (jeżeli taki będzie czytany) przykryje pierwszy. Wobec czego, jeżeli dobrze odczytuję intencje, lepiej zrobić tak jak w poście powyżej, a do memo ładować poprzez Memo1.Lines.Add(Linia z pliku); Pozdrawiam

Jak użyć FFT do mnożenia dużych liczb w C++ lub Delphi?

Witam, jakby ktoś chciał skorzystać z rozwiązania, to proszę bardzo: Jest to przykładowy program napisany w C++ Builder. Mnoży on dwa wielomiany wykorzysując transformatę Furiera, korzystając z biblioteki #include "fftw3.h" A to jest zawartość pliku .cpp: [syntax=cpp]//--------------------------... #include...

Delphi - DLL jak przekazywać parametry funkcji PCHAR ?

etet -> hmmm po pierwsze dzięki za sugestię ;) zrobiłem więc wszystko przez rzutowanie typów, tylko ten pierwszy parametr przekazuję ciut inaczej bo jeśli jest ten pierwszy parametr typu var to tak wprost nie można ale wszystko jak narazie działa już dobrze i po skompilowaniu za pomocą D7 jak i D2006 (czyli wywaliłem wszystkie StrNew itp - poprostu...

C++Builder 6: Wyświetlanie powiatu w Memo po wyborze z RadioGroup

Już poradziłem :) [syntax=cpp]//--------------------------... void __fastcall TForm1::ComboBox3Select(TObject *Sender) { //co zrobimy po wybraniu z listy dróg krajowych z ComboBox if (ComboBox3->ItemIndex == 0) { String sFileName = ExtractFilePath(ParamStr(0)) + "dat\\kraj1pik.dat"; if(!FileExists) {...

[Builder] Dodawanie znaków do TMemo w tej samej linii w C++ Builderze

Czy znacie jakis prosty sposob zeby do Memo dodawac literka po literce w tej samej lini, gdyz Memo1->Lines->Add(...) dodaje do nastepnej lini Dodano po 3 Problem rozwiazany char A='s'; String SS; SS=Memo1->Lines->Strings[Memo1->Lines->C... SS=SS+(char)A; Memo1->Lines->Strings[Memo1->Lines->Coun...

Pascal programowanie obiektowe - Program podający informacje o przedmiocie

Pozwolę sobie otworzyć temat i może odrobinkę Ci pomóc. Przeanalizuj taki kod : [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSamochod = class(TObject) nazwa : string; opis : string; end; TForm1 = class(TForm) ListBox1: TListBox; Label1: TLabel; Button1: TButton; Memo1:...

pętla for lub inna pod delphi z wykorzystaniem danych z pol edit

Witam. Potrzebuję napisać pętlę, która będzie działała w taki sposób, że warunkiem zakończenia jest iloraz dwóch wartości z pól edit. Dodatkowo, jeśli ten iloraz jest ułamkiem to musi być zaokrąglony w górę. Np jeśli edit1 ma wpisane 7, a edit2 3, to iloraz jest 2. Czyli musi zaokrąglić do 3. Coś w stylu: Begin ilosc:= (floattostr(strtofloat(Form2.Edit2.Text)...

C++: Jak poprawnie skleić starszy i młodszy bajt z czujników?

ok moj blad byl w odpowiedniej iteracji powinno wygladac mniej wiecej tak: //--------------------------------------... #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------... #pragma package(smart_init) #pragma resource...

Generowanie permutacji zbioru 12-16 elementów w C++ Builder 6.0

Mam za zadanie napisać programik który będzie generował permutacje danego zbioru. A tak naprawdę to do 12 - 16 elementowego. Lecz mam problem juz na etapie pisania funkcji. Moje założenie to że w polu Edit podaje liczebność zbioru. Pod przyciskiem jest funkcja generacji. Wyniki trafiają w Memo. Tylko że chyba coś źle piszę bo kompilator się buntuje....

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi i wyświetlić liczby na ekranie?

Nie wiem po co tobie te delay. Przecież mówisz w tym miejscu programowi zatrzymaj się na 200ms . W tym czasie program nie robi NIC . Natomiast dodawanie wyniku np. do komponentu Memo brzmi Memo1.Lines.Add := IntToStr (x) a o resztę marwi się program. Czyli można by napisać następująco: Procedure xxx var x : integer; begin Memo1.Lines.Clear; // czyścimy...

Delphi TChart – jak dodać tylko najnowszą wartość z portu COM do wykresu liniowego?

prubowałem Serio? A jak się "prubuje"? [syntax=delphi]for x:=0 to memo1.lines.count-1 do begin if trim(memo1.lines.Strings[x])<>'' then chart1.Series[0].Add(StrToFloat(memo1.li... end;[/syntax]

Delphi/Pascal - Program z Memo Nie działa jak powinien

Witam Dostałem takie zadanie do rozwiązania i nie mam zielonego pojęcia jak to zrobić. Opracować aplikacje, która wykorzystuje komponent Memo do wprowadzania wymiarów prostokąta(długość i szerokość). Nie więcej niż 20 prostokątów. Każda linia Memo zawiera dwa wymiary jednego prostokąta rozdzielone znakiem dwukropka. Okienko główne powinno zawierać także...

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

Import z DLLa(w Delphi) do C++ jak ??? nagroda 50pkt

Witam, zakładam nowy temat, bardzo proszę o pomoc. Poradziłem juz sobie z samą biblioteką DLL w Delphi a teraz chciałbym wykorzystać jedną z funkcji ale w C++ Bulider. funkcja w DLL napisanym w Delphi ma taką definicję: function ScanStrSP(var Text: PChar; Sep: PChar): PChar; stdcall; i wyeksportowana jest nazwa ScanStrSP . Gdy korzystam z niej w Delphi...

[Delphi] Delphi 2007: Różnice w porównaniu liczb w instrukcji IF i zmiennych

Weź działania w nawias. Kod Delphi - [rozwiń] var e,f: Double; begin [b]if (5*(30/360)) = (5/12)[/b] then Memo1.Lines.Add('test porównania: True') else Memo1.Lines.Add('test porównania: False'); e := 5*(30/360); f := 5/12; if e = f then Memo1.Lines.Add('test...

[Delphi] Jak w Delphi narysować krzywą interpolacyjną metodą Lagrange'a?

Co do pierwszego pytania to jak coś chcesz dodać do memo to dodajesz przez: for i := 0 to 10 do begin wynik:=w(i,Startx,Starty); memo1.Lines.Add(FloatToStr(wynik... end; Jeśli chodzi o 2 pytanie to dobrze jest. Co do 3. Wszystko działa dopóki dodaje się pliki, które zawierają więcej wierszy niż poprzednie Pamiętaj ,że...

Wczytywanie danych z pliku txt do elementu memo w Delphi

if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1...

[Builder C++] BCB6 problem z TComPort i odbiorem danych

Jerzy_W wykorzystałem twój kod i problem jest, że po wysłaniu danych program się wiesza, wiem, że błąd tkwi u mnie teraz ze znakiem stopu. Chodzi o to, że nie mogę zrobić przypisania w BCB typu char CR = #13#10 więc warunek zatrzymania trochę nie do końca działa tak jak powinien, a nie mam pojęcia jak dla C++ zadeklarować inaczej te znaki. A kod odczytu...

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

Witam. Tworząc program zawiesiłem się na odczycie z com. Mikroprocesor odczytuje dane z akcelerometru i wysyła je do PC. I tu zaczyna się problem. Używam komponentu comport. Dana jest odbierana tylko raz, jakby zamroziło odczytywanie. [syntax=delphi]ComPort1.Readstr(Str,coun... memo1.Text:=memo1.Text+str; for x:=0 to memo1.lines.count-1 do chart1.Series[0].Add(StrToFloat(memo1.li...

Delphi 2010 - Wyjaśnienie pewnych linijek w programie

Tak może być ? Skro self są zbędne to jak to zrobić bez nich ? [syntax=delphi] prostokat = class private // prywatna deklaracja, dostepna z wnetrza klasy a,b : integer; function pole_licz:integer; function obwod:integer; public // publiczne deklaracje, dostepna w calym programie constructor tworz(a, b:integer); //deklaracja funkcji konstruktora procedure...

[VB/Delphi] wszystkie możliwe równania X zmiennych

To zależy czy z powtórzeniami czy beż powtórzeń do tego dodaj sobie kombinacje plusa i minus. Jak się okazuje to kombinacji może być nawet powyżej setki. zrobiłem ci coś takiego: var a,b,c: char; znakA, znakB: char; begin znakA:= '+'; znakB:= '-'; for a:= #65 to #67 do for b:= #65 to #67 do for c:= #65 to #67 do begin Memo1.Lines.Add(a+znakA+b+znakA+c...

Jak odczytać konkretny rekord z bazy danych w Builder 6 C++ ADO?

dzieki, jestem kroczek dalej ;) Teraz mam kolejne pytanie, wynik zapytania wrzucilem do DBGrid i pytanie jak z DBGrid (lub w inny sposob) wyciagnac sobie jedna komorke i zapisac do zmiennej typu AnsiString?? uzyty kod do generowania zapytania: void __fastcall TForm1::UruchomZapytanie(... { Query1->SQL = Memo1->Lines;//"SELECT...

Lazarus - jak poprawnie wyszukiwać słowa z polskimi znakami w plikach?

Albo ja mam coś nie tak z swoim Lazarusem, albo Ty masz jakiegoś strasznego pecha. Dla testów napisałem sobie program. Dwa edity, które porównują swoją zawartość i jeżeli są takie same, to zmieniają kolor TShape obok nich. http://obrazki.elektroda.pl/4324006200_1... Żeby sprawdzić, czy to procedury SaveToFile/LoadFromFile nie wnosi jakichś...

Delphi - Application.Terminate nie działa przez niezamknięte wątki

Dalej aplikacja się nie zamyka. Grrr. Dodałem coś takiego: [syntax=delphi]Form1.Memo1.Lines.Add('tu... Form1.Close; Form1.Memo1.Lines.Add('tuu2');[/syntax] To dodaje "tuu1" do Memo. Czyli Form1.Close się wykonuje. Ale program dalej się nie zamyka. :(

Odczytywanie tekstów w Delphi Rad Studio 10 - jak to zrobić?

Poczytał bym o SpeechLib. Mój programik w CBuilder 6.[syntax=c]//--------------------------... #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------... #pragma package(smart_init) #pragma link "SpeechLib_OCX" #pragma resource...

[Delphi 7] Podczas odczytu danych z RS232 widać tylko 1 bajt

Witam! Spróbuj podejrzeć jakie bajty odsyła urządzenie w ten sposób: procedure TForm_Main.ComPort1RxChar(Sender:... TObject; Count: Integer); var Bajt:Byte; i:Byte; begin for i := 1 to Count do begin ComPort1.Read(Bajt,1); Memo1.Lines.Add(IntToStr(Bajt... end; end; A przy wysyłaniu Stringa dodaj linię:...

[Pascal] Jak uniknąć powtórzeń i sprawdzić trafienia w programie Lotto w Pascalu?

(at)lanky [syntax=delphi] SetLength(tab,ogonek-1); // 0,1,2 .. .. Memo1.Lines.Add(wylosowana); [/syntax][/quote] niestety nie mialem jeszcze funkcji SetLenght i gosc sie przyczepi, mozesz mi jeszcze powiedziec do czego sluzy: [syntax=pascal]Memo1.Lines.Add(wylosowan...

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

Przerobiłem kawałek kodu na: memo1.Lines.text:=IdDecoderMIME1.Dec... memo1.Lines.SaveToStream(f); f.Position := 0; image1.Picture.Graphic.LoadFromStream... w memo1 pojawia mi się rozkodowany nagłówek obrazka -typ obrazka np gif89 lub png, ale błąd mam gdzieś przy nagraniu stringa do strumienia...

[ DELPHI ] Wysyłanie maili w INDY - postęp w ProgressBar.

Czy udało ci się połączyć z serwerem poczty i wysłać cokolwiek z jednego konta pocztowego na drugie? Czy załącznik został przesłany? Jeżeli odpowiedź na oba pytania jest "TAK", to nie masz innego wyjścia jak tylko prześledzić obie wartości. Umieść na swoim formularzu komponent TMemo a w procedurach Work i WorkBegin oraz Status komponentu IdSMTP, dodaj...

[Delphi] - Uproszczenie wywołania funkcji w pętli

Da się :) Deklarujesz pomocniczy typ, który zawiera w sobie tabelę Variantów, co oznacz w skrócie że możesz tam wysłać dowolną liczbę argumentów o dowolnym typie. FunkcjaZTryIFor oraz ją samą: [syntax=delphi]{ Private declarations } procedure proc1(myArray : array of Variant); procedure proc2(myArray : array of Variant); procedure FunkcjaZTryIFor(Fun:...

RAD Studio Delphi XE6 - Jak dodać brakujące SDK Androida?

Witam . A jak użyć czegoś takiego tylko pod androidem memo1.Lines.SaveToFile('c:\test.txt') Chodzi mi o to co w nawiasach . Dla win32 spowoduje ze plik test.txt zostanie zapisane na dysku c, a jak to ma byc pod androidem . Próbowałem memo1.Lines.SaveToFile('test.txt') , ale wywala błąd .

[Delphi] Dodanie bitmapy do pliku RES i wywołanie go.

Z zapisem tekstu wielolinijkowego do pliku INI już sobie poradziłem, poniżej zamieszczam przykład, jakby ktoś miał z tym problemy: procedure TForm1.Button1Click(Sender: TObject); //Po kliknięciu na przycisk zapisu var I: integer; ciag: string; begin linie := memo1.Lines.Count; ciag := ''; For I := 0 to linie -1 do ciag...

Jak wysłać ramkę MODBUS RTU w BC++ i konwertować int na hex?

Witam! Mam pewnien problem. Mianowicie muszę wysłać ramkę MODBUS RTU do sterownika w postaci mniej wiecej takiej: (pierwsze dwa pola to kolejno adres sleva i funkcja, drugie dwa to adres pamieci w sterowniku, kolejne dwa do ilośc adresów pamieći o które pytamy, no i ostatenie dwa to suma kontrolna-bez nawiasów oczywiście;). Niestety programista ze mnie...

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

Doszedłem w czym był błąd, po prostu źle konwertowałem dane. Napisałem taki kod : [syntax=delphi] procedure TForm1.ComTerminal1Char(Sender: TObject; Ch: Char); var temperatura : real; msb,lsb : integer; msb1,msb2,lsb1,lsb2,msb_text,lsb_text : string; temperatura_tekst : string; begin inc(i); if i=1 then begin lsb := ord(ch); lsb_text := format('%x',[lsb]);...

Jak załadować plik txt do Memo1 w Delphi Builder 7 z dynamiczną nazwą?

Dzięki wielkie. Cóż, z tych kursów, z których korzystałem niestety, ale nie było tam za dużo informacji o składni języka. Pierwszy program do uporządkowania bałaganu z pewnymi kodami, zobaczę jak wyjdzie, jeśli efekt mnie zadowoli to opublikuje w odpowiednim dziale. PS. Chodziło oczywiscie o Borland Delphi 7 ;) Jeszcze jednej frazy jeśli w 'c:\dane\'...

Delphi: Jak obsłużyć anulowanie w InputBox bez błędu?

niezwraca nic bo program sie niewysypuje na memo1.lines.add(s); tylko na ComboBox1.Items.SaveToFile('SMTP.txt); sejwowaniu

[RS232] Jak napisać program do przechwytywania danych przez RS232?

Mój problem okazał się w sumie dosyć prosty. :-) Wysyłana przez urzadzenie "depesza" wygląda tak: "$" + 48 znaków + <CR/LF> , czyli w sumie łańcuch o długości 51 znaków. Jeśli po jej wysłaniu nie dostanie z powrotem "dolara" - zgłasza błąd komunikacji i przerywa działanie. Oprócz tego, urządzenie wysyła co jakiś czas pojedyńcze znaki (+ <CR/LF>)...

[Delphi] Firebird + IBEvent. Nie otrzymuję Event-ów.

Dodałem transakcję.[syntax=delphi]procedure TForm20.Button1Click(Sender: TObject); var I : integer; begin Memo1.lines.clear; if IBTransaction1.InTransaction then IBTransaction1.Commit; if IBEvents1.Registered then IBEvents1.UnRegisterEvents; if IBDatabase1.Connected then IBDatabase1.Close; IBDatabase1.DatabaseName:='127.0.0.1:d:\... IBDatabase1.DefaultTransaction:=IBTransa...

Delphi - Wczytywanie tekstu do Edit i Memo z pliku txt

memo posiada taka wlasciwosc: Memo1.Lines.LoadFromFile(FileName:String... ktora dobrze sie sprawdza jezeli chodzi o pliki tekstowe Nadal nie mam pomysłu na zapisywanie... -> w czesci unitu-> implementacja... Jestem na to chyba za głupi. memo posiada taka wlasciwosc: Memo1.Lines.SaveToFile(FileName:String); ktora dobrze sie sprawdza jezeli chodzi o pliki...

DELPHI - TCPClient <--> TCPServer komunikacja w dwie strony

Poszukałem trochę i okazuje się, że TTcpServer to straszna lipa odchudzona ze wszystkiego. Żeby to zadziałało, przy każdym zaakceptowaniu klienta, musisz utworzyć wątek, który będzie tego klienta obsługiwał. Musisz to zrobić ręcznie. Dodaj do projektu taki unit : [syntax=delphi]unit myServerThread interface uses SysUtils, Classes, Sockets; type TTCPClientThread...

[Delphi] Błąd 'Socket error # 11004' przy POST przez IdHTTP

Action zostało po przykładzie, myślałem że to coś jak "submit" w formularzu i musi być. :D Na 100% ma być: ? [syntax=delphi] ParamData.WriteString('pass=112233'); ParamData.WriteString('&tresc=' + Memo1.Lines.Text);[/syntax] Próbowałem także z [syntax=delphi]ParamData.WriteString('$p... oraz [syntax=delphi]// ParamData.WriteString('pass=112233');...

Jak posortować dane z pliku w Delphi7 i wyświetlić w Memo?

to tak var F:TextFile; ss:TStringList; t:string; begin assignFile(f,'nazwa.tx'); reset(f); ss:=TStringList.Create; while not EOf(f) do begin readln(t); ss.add(t); end; closeFile(f); ss.Sort; //a pozniej masz posortowane memo1.lines.assign(ss);

Kodowanie i dekodowanie PDU w C++ dla mikrokontrolera AVR (AtMega32)

dopiero teraz wrocilem :/ o to moj kod (teraz pisalem w builderze a z tego co sie tu zorientowalem malo kto w nim pisze to postaram sie tez o komentarze) String test; char input[128]; char msg[128]; char decode[128]; int len; test = Form1->Memo1->Lines->Text; //tutaj po prostu ze stworzonego okienka wczytuje nam tekst...