procedure ListMembers;
var
Member, lMembers: string;
lengthOfMember: Longint;
begin
Writeln;
Writeln;
Reset(FileA); //Only need read-only
Reset(FileB); //Only need read-only
while not Eof(FileA) do
begin
Readln(FileA, lMembers);
Write(lMembers);
end;
Writeln(sLineBreak + sLineBreak);
Write('Type the name of the member for more information: ');
Readln(Member);
lengthOfMember := Length(Member) + 2;
Seek(FileB, lengthOfMember);
end;
尝试编译时,我在这里遇到问题。 Seek();最后一行返回错误不兼容类型。就我在网上阅读的内容而言,Seek接受了var:File和var:longint,所以我看不到为什么它在输入文件和longint时被认为是不好的类型。
FileB在代码的主要部分分配给了一个文本文件。这部分只是一个过程。
感谢任何帮助。下面的更多代码。
program WoWProject;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TMember = record
Name : string;
Level : integer;
CharClass : string;
Role : string;
Spec : string;
DKP : integer;
end;
var
FileA, FileB : Textfile;
//THIS PART IS THE PROCEDURE ABOVE
//ANOTHER PROCEDURE HERE UNRELATED TO THIS
//ANOTHER HERE WHICH IS THE WELCOME PROCEDURE
//MAIN
begin
Assign(FileA, 'CharacterNames.txt');
Assign(FileB, 'CharacterInfo.txt');
repeat
Append(FileA);
Append(FileB);
Welcome;
until 1=2
end.
最佳答案
该文档对Seek()
的描述如下:
将已键入或未键入文件的当前位置移动到指定的组件。不适用于文本文件。
这就是您的问题。
关于delphi - Delphi-搜索();程序。不兼容类型,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6968572/