[Turbo Pascal[oud]] Readln in Graphische-mode

[anoniem]

Ben nu v6 aan het downloaden, ik snap niet precies wat je zegt maar dat wordt zo wel duidelijk denk ik als de dl complete is. Hijs 0p 15%. (dit is niet egt 0nt0pic gelukkig dat er geen m0ds zijn :wink:) Oke hijs klaar ik instaleer ffies.

[anoniem]

In C++ Builder kan je simpel Forms maken met bijv. een label erop, je kan dan zeggen vanne: [code:1:67fe0505ad]Form1->Label1->Caption = "Some text";[/code:1:67fe0505ad] wat gebeurt er eigenlijk achter de "schermen"? Hoe wordt de tekst in de Label geschreven? Het is handig als je dat weet :)

[anoniem]

C++ Builder wil zelfs voor de trial versie een serial :evil: Wat is dat nou weer voor lelijks :-? Heb al ff op serialsites gekeken maar daar staan nergens serials voor de trial, en van kazaa de volle downen duurt me te lang. Weet iemand waar ik sown key krijg?

[anoniem]

Als je je gratis registreerd bij Borland, kan je een volledig legale editie van C++ Builder en Delphi downloaden. zie meer op [url=http://www.borland.com]Borland's site[/url]

[anoniem]

Ben weer ff op de site geweest; als ik download moet ik registreren dus heb ik gedaan en enterprise trial gedownload, maar nu?

[anoniem]

Niet de Enterprise trial-versie, maar de Personal Edition moet je hebben :)

[anoniem]

Heb je misschien een directe url? Want ik kom er niet uit. [url]http://www.borland.com/cbuilder/personal/index.html[/url] Verder kom ik niet

[anoniem]

[url]http://www.borland.com/products/downloads/download_cbuilderx.html#[/url] als ik het goed heb, heb effe snel gekeken

[anoniem]

C++ console kan ik die code gewoon van wincompiler naar linuxcompiler kopieren? Of moet ik dan gan veranderen? Want anders zer ik de Linux versie gelijk aan ...?

[anoniem]

Borland heeft tegenwoordig ipv de VCL ook nog CLX, das een framework waarmee je GUI programma's kan maken die je zonder verandering in de code direct kan porten naar Linux. Ze maken het wel erg makkelijk voor je bij Borland tegenwoordig he :)

[anoniem]

Hehe, tjah dat is toch handig :P, maar ik ga ff een andere afbeelding zoeken. Die download is al op 25%

[anoniem]

25%, wat voor een internetverbinding heb jij wel niet? [size=9:03e267186c][color=red:03e267186c] off-topic: Het begint een beetje op een slowchat te lijken he :)[/color:03e267186c][/size:03e267186c]

[anoniem]

41% Kabel van @home, mijn maximale speed is officieel 512kb oid maar ik haal tot 1,8mbp/s :D:D:D:D:D:D [size=7:9e2a4f0424]chat is tog ook leuk :wink:[/size:9e2a4f0424] Wat betaal je daarvoor?

[anoniem]

Damn, dan zit ik hier met een verbinding van 256kbit downstream en 64 upstream (ADSL-lite). :cry:

[anoniem]

Damn ik moet opnieuw beginnen inet liep vat (explorer :evil:). Wat betaal je daarvoor, voor je internet verbinding? [20:41]1% [20:42]4%

[anoniem]

gebruik dan ook een download manager bij grote downloads :) inet: Uhmm, de standaard HCC prijs, 25 euro geloof ik.

[anoniem]

Jah zoals DAP cker dat is wel het grootste kutprogramma ter wereld. Iig, ik heb @home /40euro in de maand. Bij hun sta ik geregistreerd als 512down en 128upstraem lid, maar jah dat is dus niet zo. Bij gewone internet tests komt er wel 300-550kb/s uit maar als ik bijv [url=ftp://dl.xs4all.nl/pub/]hier vandaan[/url] download heb ik 2 iso's (tegelijk aanzetten, met internet explorer) in 8 minuten klaar. [20:45]20% En ADSL is ook [vieswoord] dus waarom neem je dat dan :P, maarja dat is jou keuze. [20:47]27% SizeOF(personalCppbuilder.exe) := 316 mb Oke hij is klaar ik heb hem geinstaleerd ik zal eens ff kijken...

[anoniem]

Vaag programma: als ik een gewoon hello world ding bouw dan zie ik die text onderin het sherm ipv in een apart scherm, en hoe zorg ik dat ik exe's krijg?

[anoniem]

Heb geprobeerd er een UNIT van te maken, maar het lukt niet helemaal: Dit heb ik tot dusver: [code:1:c7d29f0dcc]UNIT ReadTXT; INTERFACE USES CRT, GRAPH; procedure ReadTextXY(X, Y, MaxLen: byte; TextLabel: string; var S: string); IMPLEMENTATION const Backspace = #8; Enter = #13; procedure ReadTextXY(X, Y, MaxLen: byte; TextLabel: string; var S: string); var SLen: byte absolute S; SWidth: integer; SHeight: integer; CursorWidth: integer; Key: char; begin OutTextXY(X, Y, TextLabel); X := X + TextWidth(TextLabel); CursorWidth := TextWidth('_'); SWidth := TextWidth(S); SHeight := TextHeight(S); SetFillStyle(1, Black); repeat Bar(X, Y, X+SWidth, Y+SHeight); OutTextXY(X, Y, S+'_'); Key := ReadKey; case Key of Backspace: if Length(S) > 0 then begin SWidth := TextWidth(S)+CursorWidth; SLen := SLen - 1; end; ' '..'~', #128..#254: if SLen < MaxLen then begin S := S + Key; SWidth := TextWidth(S)+CursorWidth; end; end; until Key = Enter; end. [/code:1:c7d29f0dcc] Heb nog nooit eerder gewerkt met zelfbouwUnits :roll: dus vandaar, maar wat klopt er niet?

[anoniem]

Je hebt een punt staan aan het einde van de procedure. Daar hoort een puntkomma te staan en dan nogmaals een "end" met een punt daarachter. Laatste stukkie ziet er dan zo uit: [code:1:54f00856f9] until Key = Enter; end; end. [/code:1:54f00856f9]