For an empty line you can use Memo1.Lines.Add('').

Line 3 and 4 should use this method too, because they are strings. Lines 1 and 2 add a TStrings object (a collection of strings).

li.Tag perhaps. Not a very nice solution, but it works.

Try it on paper. Write the values down. Then change them as you walk through each loop (in your head).

The way I read this, is that you need to calculate the value of the variable (evens). Just follow the source code in your head, or on paper, and do as it instructs.

I don't see output in the...

I think Length(XMLHTTP.ResponseBody) should do the trick.

You can use MyFileStream.Write(); Please look in the help for parameter info. I think the first can be a string, and the second the length. If you want to write ResponseStream, there might be some...

Is it required to see those lines as they are generated. If you could send them to a file, you can speed it up. The memo is really awful for this amount of data.

Also, the processmessages slows...

See the helpfile for the function Pos(). It will allow you to search for a substring.

Correct. Labels must start with a character, not a number. Add a prefix to the 200, like:

label200:

and change the references in the code.

end . should be end. (remove the space)

Not sure about the first error. Could it be triggered by the $N switch error ? Look for {$N} and remove it (at the top).

I wonder, High and Low return the highest and lowest array index iirc. Isn't he looking for Min and Max ?

This works for me:

if screen.fonts.IndexOf('Arial') > -1 then
MessageDlg('Arial installed', mtInformation, [mbok], 0);

var
sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile(yourtextfilehere.txt);
ShowMessage(sl[Random(sl.Count)]);
sl.Free;
end;

If you load your strings into a tstringlist, then you can use the random function to select a random line.

Show what you have so far.

What do you have so far ?

Ofcourse. Just declare one integer, call randomize and then random.

const
myarray: array [0..9] of Integer = (10, 20, 30, 40, 50, 60, 70, 80, 90, 100);
begin
Randomize;
Writeln(myarray[Random(10)]);
end;

What have you got so far ? A normal windows application or a console application ?

If you have the former, then you can put a label, button and editbox on a form and start from there.

What is the problem ? The pseudo code is as it should be. You only have to replace it with actual statements.

An old fashioned .com file that executes ? How would you want to modify that ?

http://delphi.about.com/od/beginners/a/delphi_set_type.htm

Remove all your *.~* and *.dcu files and any other files that will be regenerated and try to build from scratch

This works in Delphi 5 on XP, so it should work for you:


var
SteamString : String;
CommunityString : String;
ZeroOrOne : String;
SteamId : String;
CommunityStringMath : Int64;
...

LOL. I did too earlier, but he didn't seem to pick that up... ;D

In addition to LizR

This:

BlockRead(ReadBIP,RecTile,SizeOf(recTile)+1,iRead);

Should be this:

BlockRead(ReadBIP,RecTile,1,iRead);

Shouldn't you be using iCount instead of SizeOf(recTile) in the BlockRead ?

Absolutely agree. It was just an answer to his question, although I'd do it your way too.

Iirc, you should be able to use move().

You can use URLDownloadToFile() in the unit UrlMon.

The string (Directory) in the record is causing your problem. You'll need to change it to e.g. string[30]. string may not appear in a typed file, since it's length is undetermined.

Are you looking for Delay() ?

You would probably have to implement the OnDrawItem to draw it in an unusual way.

In the OnClick event there's Sender. That refers to the clicked button, so you can use


TButton(Self).Color := clYellow;

With the debugger you can view your code as it executes line by line, to see where it goes wrong. Be sure to do that, and you will find the problem. Probably some variables do not have the expected...

Did you use the debugger, to see what happens when the code gets executed?

Hans