CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede juzas Mester
08. april 2022 - 20:39 Der er 5 kommentarer og
1 løsning

Delphi Udplug en string fra edit text

Hej.
Mangler lidt hjælp til at udtage tallet mellem ( ).

Har denne tekst i en edit1: "210 (32)"
Har denne tekst i en edit2: "32 (3233)"

Vil gerne have tallet mellem ( ) fra edit1 i en edit3.
Vil gerne have tallet mellem ( ) fra edit2 i en edit4.

Tallet mellem ( ) svinger så det kan være alt fra 0 - 1000.
Avatar billede arne_v Ekspert
08. april 2022 - 20:45 #1
Lyder som en sag for regex!
Avatar billede arne_v Ekspert
09. april 2022 - 02:57 #2
Det her virker i Lazarus/FPC:


program regexfun;

uses
  RegExpr;

var
  re : TRegExpr;

begin
  re := TRegExpr.Create('\d+\s*\(\s*(\d+)\s*\)');
  re.Exec('123 ( 456 )');
  writeln(re.Match[1]);
end.
Avatar billede arne_v Ekspert
09. april 2022 - 03:00 #3
Jeg vil tro at det samme i Delphi skal laves som (utestet!):


program regexfun;

uses
  RegEx;

var
  re : TRegEx;
  m : TMatch;

begin
  re := TRegEx.Create('\d+\s*\(\s*(\d+)\s*\)');
  m := re.Match('123 ( 456 )');
  writeln(m.Groups.Item[1].Value);
end.


Men proev dig lidt frem.
Avatar billede juzas Mester
09. april 2022 - 17:02 #4
Har prøvet en del nu. Jeg få denne fejl ved din kode "I/O error105)

Fortæller koden også at tallet mellem ( ) skal vises i en anden edit.
Avatar billede arne_v Ekspert
09. april 2022 - 20:48 #5
Koden udtrækker kun det tal der står mellem parenteserne som en string.

Men det er nemt at assigne til en kontrol så.
Avatar billede arne_v Ekspert
09. april 2022 - 20:48 #6
Hvordan ser din Delphi kode ud nu og hvilken linie giver den fejl?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Kodning af element i custom css Af Jacob Hedelund i Andet programmering 3 14/10/202410:35 14/10/202419:46
Delphi 11 - converter webp til jpg fil Af juzas i Andet programmering 5 12/10/202413:28 14/10/202403:54
Trim tekst i batch script Af Dan Elgaard i Andet programmering 5 05/09/202411:08 10/09/202415:29
ASP Classic fil fra subfolder Af bsn i Andet programmering 3 07/05/202416:14 08/05/202401:00
Session Variable Af bsn i Andet programmering 3 01/05/202409:44 02/05/202409:29
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 22:45 Mangler jeg nogen driver?? Af xMsBx i Andet software
I går 20:37 Åbne en regnskabsfil fra Summasumarum Af ptj_11 i Økonomiprogrammer
I går 18:03 Kan en kombinationsbox formateres om til en text box og omvendt Af per2edb i Access
I går 12:41 Standard kontoplan til dynamics business central Af prof2004 i Økonomiprogrammer
20/1121:03 Kan ikke se mine cromecasts Af Malm i Browsere
White papers
Flere white papers »


Premium
Teaser billede
Københavns Kommune ansætter sin første CISO nogensinde: Skal bygge it-afdelingen op omkring 45.000 ansatte
Læs mere »
Ny EU-sikkerhedslov er offentliggjort: Nu er nedtællingen i gang
Melder alt klart med kæmpe it-projekt: Budget er steget med næsten 30 procent undervejs
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Audi Q6 er en super fed SUV - men gør dig selv en tjeneste og kast flere penge efter den
Det vrimler frem med gratis-alternativer til ChatGPT Plus – her er de bedste af dem
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Se alle »
CIO
Teaser billede
Danske sygehuse når ikke at opgradere tusindvis af computere til Windows 11 i tide: Får konsekvenser for it-sikkerheden
Læs mere »
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Stor sag mod Microsoft kan være på vej: Beskyldes for at låse Azure-kunder fast med ulovlige metoder
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Tre Norlys-topchefer fratræder med omgående virkning: Internet-forretningen er udfordret - vil have mere fart i integrationen af Telia Danmark
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Se alle »
White paper
Teaser billede
Sikkerhed uden grænser: Cisco Hypershield
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »