Cita:
Empezado por eduarcol
antes de abrir el archivo agrega esto:
Código Delphi [-]if FileExists(Edit1.Text) then
//Abrir el archivo
|
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j,indice: integer;
Str: String;
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
Edit2.Text:=('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
Edit2.Text:=('Load File..................OK !');
Memo1.Clear;
with TStringList.Create do
try
LoadFromFile(Edit1.Text);
FillChar(Buffer,Sizeof(Buffer),#255);
for i:= 0 to Count - 1 do
Insertar(Strings[i],Buffer);
j:= StrToInt(Label2.caption);
Str:= EmptyStr;
No veo donde intercalar esa linea eduarcol.
Un Saludo.