tstringlist count

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

<zalamka> Count TStrings (lub TStringList) i F1!

Pascal - Procedury wczytywania i wypisywania plików

1. Tworzysz zmianą klasy TStringList. Ładowanie pliku TStringList.LoadFroFile(nazwa_pliku) 2. Liczba linii -> TStringList.count 3. Ilość znaków -> sizeof(TstringList.text) 4. Liczenie spacji -> prosta pętla na przeliczanie występowania znaków w TStringList.text. 5. To samo co wyżej, wywołane dla każdej litery. Ten program można napisać w ok 20 liniach....

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

[DELPHI] Jak stworzyć właściwą maskę wprowadzania adresu IP

No własnie, nie ma sensu komplikować ;) procedure TForm1.MaskEdit1Exit(Sender: TObject); var wynik : string; begin Wynik:=StringReplace(' ','',(Sender as TMaskedit).text,[rfReplaceAll ... (Sender as TMaskedit).text:=wynik; //Label1.caption:=wynik; - zmienna wynik przechowuje adres IP w rozsądnym...

[Delphi] Wczytywanie danych z plików i rysowanie stycznej na wykresie

Oczywiście, że tablice są puste. Musisz je wcześniej wypełnić danymi ;) Gdyby plik współrzędnych miał np taką postać (x,y): 1 4 3 7 3 2 To wczytanie wyglądałoby mniej-więcej tak: [syntax=Delphi]var i,p: Integer; punkty: array of TPoint; plik: TStringList; begin try plik:=TStringList.Create; try plik.LoadFromFile('plik.txt'); SetLength(Tablica,plik.Count);...

PlayLista na komponencie ListView - zapis/odczyt z pliku

No to teraz robisz Składniowo jest prawie podobnie do mojego kodu, którym próbuję wczytać plik. Ja próbowałem to wczytać w ten sposób: [syntax=c]void __fastcall TForm3::LoadPlayListBtnClick(TObject *Sender) { if(LoadPlayList->Execute(Handle)) { GenerateFiles = new TStringList; GenerateFiles->LoadFromFile(LoadPlayL... //wczytuję...

C++ Builder - Wyszukiwanie tekstu w TListBox za pomocą TEdit

Próbuję właśnie za pomocą TStringList, ale wysypuje mi się program. ListBox1->ClearSelection(); String spam = Edit1->Text; for(int a=0;a<ListBox1->Count;a++) { TStringList *up = new TStringList; up->Strings[a] = ListBox1->Items->Strings[a]... spam = spam.UpperCase(); up->Strings[a]...

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

Hmm.. teraz to już nie wiem, możliwe, że palnąłem głupotę. Sprawdź kilka kolejnych odczytów portu pod kątem długości zwróconego stringa. Możesz to zrobić np tak: [syntax=pascal] unit ODCZYTRS; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CPort; type TForm1 = class(TForm) Memo1: TMemo; Button1:...

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

procedure TForm1.Button1Click(Sender: TObject); var Lista: TStrings; Petla: integer; Jest: boolean; begin Lista:=TStringList.Create; try with Lista do begin LoadFromFile('c:\test.txt'); Jest:=False; for Petla:=0 to Count-1 do if Pos(Edit1.Text,Lista[Petla]&... then begin Jest:=True;...

[Delphi] Jak stworzyć program do zarządzania i uruchamiania plików z list?

Jeśli jest multi select, to należy skorzystać z innej właściwości - Files, bo Filename przechowuje tylko nazwę jednego pliku, stąd też tylko jeden się dodawał. Można to zrobić w pętli i dodawać kolejne pliki. W przykładzie poniższym nie ma ścieżek, co jak pisałem wcześniej będzie problemem przy otwarciu pliku (jeśli nastąpi zmiana katalogu przy Open...

C++ Builder - Sprawdzanie/Wyszukiwanie takich samych nazw

Próbuję Twoim sposobem dalej nic z tego nie wychodzi. Źle porównuje, czyli źle wyszukuje pliki o tej samej nazwie TStringList* l1; TStringList* l2; try { l1 = new TStringList(); l2 = new TStringList(); l2->Sorted = true; l2->Duplicates = dupIgnore; l1->Add(ExtractFileName(ListB... l2->Text...

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:='|';...

Jak posortować alfabetycznie w TStringGrid w Delphi?

A może prościej? Zamiast sortować każdą kolumnę w osobnej procedurze, użyć czegoś takiego : procedure SortStringGrid(var GenStrGrid: TStringGrid; ThatCol: Integer); const TheSeparator = '(at)'; var CountItem, I, J, K, ThePosition: integer; MyList: TStringList; MyString, TempString: string; begin CountItem := GenStrGrid.RowCount;...

[Delphi] Jak w Delphi policzyć linie w pliku txt i wyświetlić ich ilość?

Dobra, to może i ja dorzucę 3 grosze. Kod będzie w c++ ale to też Borland więc zrozumiesz ;) Jedna sprawa, plik nie może być zbyt duży (powyżej 6MB zaczyna mielić) TStringList *lst = new TStringList(); lst->LoadFromFile("plik.txt&... ::MessageBox( 0x00, IntToStr(lst->Count).c_str... "Ilosc...

[PHP+Delphi] Jak zakodować Base64 w PHP i Delphi? Przykłady i różnice w implementacji

i : integer; deFPage1 : string; Stringlist : Tstringlist; StringList.Delimiter:=';'; StringList.DelimitedText:=(FPage... for i :=0 to StringList.Count-1 do deFPage1:=deFPage1+DecodeBase64(... deFPage1 := DecodeBase64(FPage1); w php wstawiłem ; . I nie działą kompiluje się ale...

[DELPHI] Jak kopiować, wysyłać mail i usuwać pliki z Listbox?

Dodano po 1 Problem leży gdzieś tutaj: Dodano po 10 Już doszedłem do tego co zrobiłem źle. :) Otóż cały wklejony przeze mnie kod jest dobry. Po prostu chwilowo wpisywałem zamiast: [syntax=delphi]LiteraDysku + ':\Tapety'[/syntax] to (nie chciało mi się czekać za każdym razem na wynik po przeszukaniu calego dysku) [syntax=delphi]'D:\Tapety'[/syntax]...

Integracja pobierania plików z RapidShare za pomocą komponentu Indy idHTTP

Nie bylo tak zle. ponizej zamieszczam kodzik do umozliwiajacy pobranie pliku po zalogowaniu. zwracam uwage na bloki wyluskajace adres i nazwe pliku , wielu uzytkownikow ma problem z operacjami na stringach , w tym przykladzie widac jak prosto mozna pobrc potrzebne dla nas wycinki stringow za pomoca trzech funkcji (pos,copy,delete). procedure TForm1.Button1Click(Sender:...

Błąd przy imporcie danych z CSV w C++ Builder - problem z cudzysłowami

Witam. Zrobilem funkcje ktora importuje dane z pliku csv ale znalazlem jeden blad. Mianowicie chodzi o to ze jezeli w jakims polu w pliku umiescimy dane okreslone "" to cala funkcja sie sypie. Faktem jest to ze sam mechanizm tej funkcji polega na wyliczaniu "". Moze i to nie jest najlepsze wyjscie ale nie mialem innego pomysly na to aby to ruszylo....

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

Tym razem masz enter w ciągu tekstowym. Natomiast kod pokazany jest niezgodny z tym z (4) - tam do konwersji podstawiłeś str - po co, skro w T1 jest właściwa wartość? Proponuję inaczej - utwórz pomocniczą zmienną jako pole klasy formatki (czyli do definicji dopisz sobie w części private zmienną typu string). Jak rozumiem, odebranie Entera ma jest sygnałem,...

Delphi: Odczyt danych z linii w Memo rozdzielonych przecinkami

var TempList: TStrings;{ declare the list } begin TempList := TStringList.Create;{ construct the list object } try { use the string list } TempList.Delimiter:=','; TempList.DelimitedText:='abc,def,ghi... for i:=0 to TempList.Count-1 do write(TempList[i]); {writes: abcdefghi}...

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

Ew. jakby zrobić coś takiego, żeby wczytywać dane punktów z pliku i wpisywało w tego stringgrida Widzę ,że chyba mojego kodu nie zrozumiałeś :) function Jaki(a,b: byte): real; begin result:= 0; if a = 0 then result:= StartX[b]; if a = 1 then result:= StartY[b]; end; procedure TForm1.Button1Click(Sender:...

Obsługa RS miernika Motech MT 4090 w Delphi - dziwne zachowanie w trybie Remote

Witam, Robię obsługę po RS-ie miernika Motech MT 4090. Miernik Ustawiony na Tryb Remote. I teraz kilka dziwnych rzeczy. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq

Jak uzyskać opis portu COM z Menedżera urządzeń w rejestrze?

a oto rozwiazanie : BYTE __fastcall listePortCOM(idPortCOM * tableau, int tailleTableau) { TRegistry * registry = new TRegistry(); TStringList * ports = new TStringList(); int i; HANDLE hPort; try { registry->RootKey = HKEY_LOCAL_MACHINE; registry->OpenKey("HARDWARE\... false);...

Delphi - jak zapisać wartości pól wyboru do pliku?

Udało mi się stworzyć następującą procedurę: [syntax=delphi]procedure OdczytajKonfiguracje(gdzie_zapisac: String); var INI : TINIFile; c: TComponent; licznik: Integer; nazwa_komponentu: String; Lista: TStringList; begin INI := TINIFile.Create(gdzie_zapisac); Lista := TStringList.Create; try INI.ReadSectionValues('Opcje', Lista); finally end; for licznik...

[Delphi] Jak dodać numer i nazwę do Memo1 z Edit1?

Najlepiej najpierw podziel tekst na słowa (oddzielone spacją) i wstaw je do kontenera, np: {=== ... ===} type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject);...

Delphi RS232: jak wysłać plik tekstowy przez komponent ComPort jak w Hyperterminalu?

Eeeee no bez przesady ,nie jest skomplikowane , jak nie chcesz bawic sie obsluga plikow to mozesz stworzyc strumien w pamieci i sobie czytac znak po znaku i wysylac. Masz tu kodzik ,ktory nie jest moze piekny ale dziala i to jest przyklad wg ktorego mozesz sam napisac : procedure TForm1.Button1Click(Sender: TObject); var strumien:TMemoryStream;...

Delphi import funkcji ReadUSBPacket z lmusbdll.dll – znikająca zmienna TStringList

Witam. Problem dotyczy funkcji zaimportowanej z dll. Import funkcji wyglada nastepujaco (wykomentowana cześć to oryginalny nagłówek funkcji wzięty z programu żródłowego dll): [syntax=delphi] //ReadUSBPacket(LMUSB_HANDLE hHandle, unsigned char *pcBuffer, unsigned long ulSize, unsigned long *pulRead, unsigned long ulTimeoutMs, HANDLE hBreak); function...

Delphi: Jak zliczyć i posortować liczby według częstotliwości wystąpień?

Z gauge sobie poradziłem, Ale z tym sortowaniem to ciężej, tego TSortList nie wiem jak, Ale znalazłem w internecie inny sposób, lecz nie działa. procedure TForm1.Button2Click(Sender: TObject); var I : integer; sl : TwojaLista; SD : TStringList; elem : Telement_listy; begin; SD := TStringList.Create; Gauge1.Progress :=...

C++Builder6 - Jak wydrukować memo i otworzyć okno ustawień drukarki?

Drukowanie Memo: #include <Printers.hpp> // ważne! ten moduł trzeba włączyć do projektu. //--------------------------------------... private: void __fastcall PrintMemo(TMemo *Memo, TPrintDialog *PrintDialog); void PrintPage(int page); TStringList *pages; int currentpage; // Plik źródłowy np....

Jak zliczyć dostępne porty COM (w tym wirtualne) w Windows?

Hej znalazlem kod w sieci ktory prawdopodobnie robi to o co mi chodzili. Problemem jest to ze za bardzo nie rozumiem jego zapisu Kod przedstawia sie nastepujaco: var CommPaths: TStrings; i: Integer; begin with TRegistry.Create do //-> Co to TRegistry.Create try //czy to do wylapywania wyjatkow? RootKey := HKEY_LOCAL_MACHINE; //-> RootKey...

[DELPHI] Wyszukiwanie pliku i kolejna czynność jak już znajdzie

Interesuje mnie procedura, która wyszukiwałaby określone pliki na dysku, a jeśli już je znajdzie, to wtedy powiedzmy skopiuje je w inne miejsce na dysku. Znam kod na wyszukiwanie plików na dysku, ale nie potrafię zrobić czegoś takiego, że jeśli np. już znajdzie plik powiedzmy 1.jpg, to wtedy coś (jakąkolwiek czynność, którą zadeklaruję) zrobi z tym...

Delphi - Wyszukiwanie w pliku i wyświetlanie wartości

w tym wypadku na początku wiersza większe i mniejsze od szukanej o np. 100 Nigdy nie używałem Delphi :) Właśnie pobrałem Lazarusa (też go jeszcze nie używałem) i załączam uzyskany program. http://obrazki.elektroda.pl/8546723200_1... Już prawie zapomniałem jak to się pisało w Pascalu (sławne ":=" zamiast "="). Okropnie wielki ten program:...

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

Delphi i HPGL. Jak napisać część kodu interpretującą nagłówek?

ja bym to zrobił mniej więcej tak: najpierw bym wyszukał średnika ";" oraz wyciął daną linie (bez średnika). wyszukał pierwszą spacje lub eol text od początku do spacji lub eol to polecenie, dalej mogą sie znajdować argumenty.. z argumentami: poszukać przecinka, rozciąć dane na 2 części i zamienić na liczby. coś typu: program hpglparser; {$APPTYPE...

Altium Designer 10 - skrypt podświetlający wybrane elementy

Witam wszystkich użytkowników, mam problem ze stworzeniem skryptu do Altium Designer'a. Problemem jest podświetlenie, zaznaczenie wybranych elementów, które przefiltruję w skrypcie. Przykład: Na schemacie mam kilkadziesiąt rezystorów, które mają parametry "Value" i "Tolerance" (dodany przeze mnie). Skrypt ma przejść przez wszystkie rezystory i podświetlić...

Delphi - Synapse - jak utworzyć katalog na Chomiku (Java/json)

Witam. Walczę już kilka dni i ciągle nic. W AutoIt wystarczyło dosłownie kilka linijek i katalog utworzył się na Chomiku bez problemu. A w Delphi 7 + Synapse, w którym piszę ciągle dostaję odpowiedź <500 Internal Server Error>. Poniżej gotowy kod, który loguje do Chomika prawidłowo, prawidłowo "klika" w ikonkę dodaj folder (jest prawidłowa odpowiedź),...