Most úgy egyszerre 3 dolgot kéne tennem. :D
1) Aludni, jó nagyot!
2) Programozni, jó sokat!
3) Semmit tenni, nagyon semmit!
procedure TForm1.btn1Click(Sender: TObject);
var
LoadFile: TextFile;
Filen: TFileName;
tab, R: string;
P, x: Byte;
s: Integer;
begin
Filen := 'dict1.txt';
tab := ',"';
x := 0;
if not FileExists(Filen) then begin
Exit;
end;
AssignFile(LoadFile, Filen);
Reset(LoadFile);
if EOF(LoadFile) then begin
CloseFile(LoadFile);
Exit;
end;
try
while not EOF(LoadFile) do begin
Readln(LoadFile, R);
P := Pos(',"',R);
if p = 0 then begin
ShowMessage('Rossz file!' + #13 + 'A program biztonsági okokból kilép!');
Application.Terminate;
Exit;
end;
R := Copy(R, 0, Length(R)-p);
edt1.Text := R;
// dbedt2.EditText := R;
end
finally
CloseFile(LoadFile);
end;
Ezzel szenvedek! :) Ez egy text fájlból adatbázisba konvertáló program lesz! Lehet írok még!
Megjegyzések
Megjegyzés küldése