December 10th, 2003, 02:48 PM
|
|
Contributing User
|
|
Join Date: May 2002
Location: UK
Posts: 521
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?
|
Dev Shed Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
