Delphi Programming
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
User Name:
Password:
Remember me
Go Back   Dev Shed ForumsProgramming Languages - MoreDelphi Programming

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread Dev Shed Forums Sponsor:
  #1  
Old December 10th, 2003, 02:48 PM
lloydie-t lloydie-t is offline
Contributing User
Dev Shed Novice (500 - 999 posts)
 
Join Date: May 2002
Location: UK
Posts: 521 lloydie-t User rank is Private First Class (20 - 50 Reputation Level)lloydie-t User rank is Private First Class (20 - 50 Reputation Level) 
Time spent in forums: 1 Day 16 h 42 m 8 sec
Reputation Power: 7
Why Can't I get a For loop working

I cant see what I am doing wrong in this for loop. I can do it easy in PHP, but because I am new to Delphi I just don't get it.Can some one point me in the right direction?
Code:
procedure TMainForm.CdrButtonOKClick(Sender: TObject);
var
i : integer;
j : integer;
k : pchar;
begin
Assignfile(CdrText, CdrImportEdit.Text);
Reset(CdrText);
while not EOF(CdrText) do begin
ReadLn (CdrText, Buffer1);
ExtVar := PhoneNum(buffer1);
for i = strlen(Pchar(ExtVar)) downto 1 do
begin
areacode := copy(ExtVAr, 0,i) : string;
mySQLCollexClient.Query.PrepareTask (Pchar(SELECT * FROM stdcodes
WHERE areacode = '+areacode,nil,nil,AnyThreadedError;
SQLClient.Execute;
j := mySQLCollexClient.Query.DataCount;
SQLClient.Query.Clear;
if j > 0 then break;
end;
begin
mySQLCollexClient.Query.PrepareTask (Pchar(SELECT * FROM stdcodes
WHERE areacode = '+areacode,nil,nil, AnyThreadedError;
SQLClient.Execute;
k := mySQLCollexClient.Query.Data;
SQLClient.Query.Clear;
end;
edit1.Text := (ExtVar);
end;
CloseFile(CdrText);
end;


Errors---------------------------------------

[Warning] datacollex.pas(117): Comparing signed and unsigned types - widened both operands
[Error] datacollex.pas(117): For loop control variable must be simple local variable
[Error] datacollex.pas(118): Expression expected but 'BEGIN' found
------------------------------------------------
WhaDaYaTink?

Reply With Quote
  #2  
Old December 11th, 2003, 12:53 AM
Scorpions4ever's Avatar
Scorpions4ever Scorpions4ever is offline
Banned ;)
Dev Shed God 6th Plane (7500 - 7999 posts)
 
Join Date: Nov 2001
Location: Glendale, Los Angeles County, California, USA
Posts: 7,587 Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level)Scorpions4ever User rank is General (90000 - 100000 Reputation Level) 
Time spent in forums: 1 Month 1 Day 21 h 14 m 26 sec
Reputation Power: 997
For one thing, you have:
for i = strlen(Pchar(ExtVar)) downto 1 do
when it should be (notice the := )
for i := strlen(Pchar(ExtVar)) downto 1 do

Also, this line won't work:
areacode := copy(ExtVAr, 0,i) : string;

Remove the ":string" from the line. Hope this helps
__________________
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne

Puzzle of the Month solved by Keath and KevinADC, superior perl programmers of the month
Looking for a perl job with kick-*** programmers in a well-known NASDAQ listed tech company with branches in the US and Europe? We're hiring. PM me for details. Requirements

Reply With Quote
  #3  
Old December 11th, 2003, 02:19 AM
lloydie-t lloydie-t is offline
Contributing User
Dev Shed Novice (500 - 999 posts)
 
Join Date: May 2002
Location: UK
Posts: 521 lloydie-t User rank is Private First Class (20 - 50 Reputation Level)lloydie-t User rank is Private First Class (20 - 50 Reputation Level) 
Time spent in forums: 1 Day 16 h 42 m 8 sec
Reputation Power: 7
Can't shake the PHP monkey.

Reply With Quote
Reply

Viewing: Dev Shed ForumsProgramming Languages - MoreDelphi Programming > Why Can't I get a For loop working


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 4 hosted by Hostway