17-02-2012, 03:40 PM
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
Var
T: TextFile;
L,P: String;
S: TStringList;
begin
AssignFile(T,'C:\Fichier.txt');
Reset(T);
S := TStringList.Create;
Readln(T,L);
S.CommaText := L;
P:=S[0];
showmessage ('كلمة رقم 1'+'='+P);
P:=S[1];
showmessage ('كلمة رقم 2'+'='+P);
CloseFile(T);
end;
لاحظ ما يعطيك إياه showmessage
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي

