catch the reset(filevar)

{$I-}
reset(f);
{$I+}
if ioresult <> 0 then writeln('error when trying to open the file');

one million records....that's nice .....
where do you store them,in a file or in the memory(is this a linked list?)?

login to a computer or login to a program with a password?

use a record to store these data :D

I made a pascal source code :D


program sablon;

uses crt;

type range = 1..65535;

const ok = 'ok.';

1, create a new form as form1
2, find the DIALOGS\OPENDIALOG place it to this form1
3, click on the opendialog1 to look at its properties in the Object Inspector...set the
3.a, FILTER to...

or you can use case structure too :D


procedure TForm1.Button1Click(Sender: TObject);
begin
case radiobutton1.Checked of
true:showmessage('radiobutton1 is selected');
...

what do you want to search?Any effort?

one form,two radio buttons as radiobutton1 and radiobutton2 and a simple button as button1,place them onto the form and code the button1 as


procedure TForm1.Button1Click(Sender: TObject);
begin...

what if we use some procedure and function..?




PROGRAM LinkedList;

USES Crt;

TYPE

I tryed to compile your unit,same problem like you,mine is delphi 7.
The case statement is waiting for an ordinal type as char or integer,or byte or boolean etc and you add a real type...it is the...

one alternative is


procedure TForm1.Button1Click(Sender: TObject);
var
count: integer;
begin {main}
count:=3;
If edit1.Text='Jayno4' Then
Begin

to color your texts in the screen look at this page
http://rvelthuis.de/programs/console.html
here you can download a console unit it is contains the textcolor rutin too..
and there is some commad...

assign(hotSeat_file,'hotSeat.dat');{error here!!!}
{need the whole path like 'C:\hotseat.dat'}

What do you want?To log into a computer or just your program?

10 = 9+1
10 = 8+2
10 = 7+3


Where do you want to search?Where do you store them,in string?

Hi Kirky89.
the answer is simple,just listen my(your) code :D


program lab12exc3;

{$APPTYPE CONSOLE}

uses
SysUtils{ourcrt};

{
First I created a new file,cause yours is not proper to me,sorry
And I write 5 members into it,and then read them into an array and
last short them
by the way,there are lot of shorting...

What if the added parameter type is not meet properly?
Listen,if you create a new type as array and pass it to the proc...


program array1___;
{$APPTYPE CONSOLE}
uses
SysUtils;

type...

first you have to know the record's field,if you know then you can use a for loop to write the guy to the file....
By the way,when we want to write records into a file then we do it with typed...

I think I forget about writting a record to a file.....fixed.....


{full commented version created by FlamingClaw 2009}
program solution;

type Tmember = record
id:longint;...

"The loop is very slow. To generate 2,000,000 lines it needs 2:45 hours. As it continues, it gets slower and slower still."

I wrote a same program like yours.....
what if you leave out floattostr...

you can use records to store the members data
like my code


{
The DATA:
20081231 Betty 03/09/1978

The programm
}

maybe it can be good,but how do you want to play with the players?
when you got the ten finalist then refresh your screen,and call your question procedure to play with the guys,and after answering...

http://www.devexpress.com/Products/NET/DXperience/WhatsNew2008v3/index.xml

to add money to the players,you sould write your record as


Type
hotSeat_record=record
lastname:string[12];
firstname:string[12];
...

What kind of dll is that?Or what is the name of that?

I have got an idea.... :)


program solution;

uses crt;

const numtxt = 'C:\number.txt'; {assign f1}
wortxt = 'C:\words.txt'; {assign f2}
temptxt = 'C:\temp.txt'; ...

make a procedure that write out the questions for the players
add chance to them to select an answer,like
question: .......
answer:a,......
b,......
c,.......
if the...

so the word.txt's contets need to change?
like
hello,10
welcme,20
text,30

or the two files' contents

number.txt's contents:
10,hello

i do not understand the question.... :'( what can we do for you?
your program is working... what is the 'hotseat' game?

here you can find some information about this problem
http://coding.derkeiler.com/Archive/Delphi/borland.public.delphi.nativeapi/2004-01/0465.html

of course my little program do not cares about the spade or diamond,etc
this program demonstrates a simple card game ,you against the computer.you gain 4 cards and the computer too,then the program...

i had a little time to continue the card game....


program solution;

var lapok:array[1..12]of string[1];{the cards,2,3,4,5...J,Q,K,A}
kezd:byte;{who begins the game}
...

I found a little program that converts c to delphi
http://www.sharewareconnection.com/c-2-delphi-converter.htm

try this link http://www.devexpress.com/Products/NET/Controls/WinForms/Editors/Editors/MemoExEdit.xml

I tryed to explain everything.....


program solution;

var choice:Integer;{the user choice}
{
let's create the 5 procedures
these procedures does nothing,only
called by the main program...

I asked some of my friends about this weird problem,they said it is the DOS' fault... :'( ...but it can be fix.We need to write our reader
This program written by KAROGY.(hungary)


program...

I'm just do not understand that why need to delete the [ and the ] ? :'( cause a string's max length is 255 char,or not?

I hope this helps.... :D
card_game_in_pascal (http://www.vclcomponents.com/s/0__/card_game_in_pascal)